Getting a binding error on create:
===================================================================================
Message . . . . : *SRVPGM object QZDMMDTA in library QSOC not found.
Cause . . . . . : *SRVPGM object QZDMMDTA in library QSOC was specified in
binding directory QUSAPIBD in library *LIBL, but was not found for binding.
Recovery . . . : Contact your application provider or service
representative.
CPD5D02 Diagnostic 30 11/18/14 16:48:09.406744 QBNBIND QSYS *STMT QBNBIND QSYS *STMT
From module . . . . . . . . : QBNBSYMR
From procedure . . . . . . : QBNBSYMR__UnresolvedReferenceIterator
Statement . . . . . . . . . : 31
To module . . . . . . . . . : QBNBSYMR
To procedure . . . . . . . : QBNBSYMR__SignalUnresolvedReferences
Statement . . . . . . . . . : 8
5770SS1 V7R1M0 100423 Job Log S104DB7A 11/18/14 16:48:09 Page 2
Job name . . . . . . . . . . : TESTBR User . . . . . . : ERIC Number . . . . . . . . . . . : 009647
Job description . . . . . . : ERIC Library . . . . . : QGPL
MSGID TYPE SEV DATE TIME FROM PGM LIBRARY INST TO PGM LIBRARY INST
Message . . . . : Definition not found for symbol 'SYNCJOB'.
Cause . . . . . : No definition was found for reference SYNCJOB in *MODULE
object TESTBR in library QTEMP. The definition either does not exist or is
not of the same data or procedure type as the reference. Recovery . . . :
Try the Create Program (CRTPGM) command again, supplying an object that
contains a definition for symbol SYNCJOB.
===============================================================================
Code: Select all
H DFTACTGRP(*NO) ACTGRP(*NEW)
FUNVBRF CF E WorkStn Handler('UNIVERSAL(HANDLER)')
F USROPN
/COPY QCPYLESRC,SYCDXFUSO
/COPY QPROTO,SYSTEMCMD
/COPY PROFOUNDUI/QRPGLEINC,PUISYNCR
/COPY QCPYLESRC,SYCDXD
/COPY QCPYLESRC,LDAUDS400
/COPY QCPYLESRC,PGMDS
/COPY QCPYLESRC,SYCDXI
/FREE
//monitor;
// system('ADDLIBLE LIB(ICSUI) POSITION(*LAST)');
//on-error;
//endmon;
//monitor;
// system('ADDLIBLE LIB(ICS) POSITION(*LAST)');
//on-error;
//endmon;
//monitor;
// system('ADDLIBLE LIB(PROFOUNDUI) POSITION(*LAST)');
//on-error;
//endmon;
SyncJob(*ON);
open unvbrf;
open sycdx;
*IN95 = *ON;
Read HEADER;
Write HEADER;
if required <> 'Y';
BrName = *blanks;
BrCde = *blanks;
Write DETAIL;
endif;
if aster = 'Y';
BrName = '*';
BrCde = '*';
Write DETAIL;
endif;
sxkey = *blanks;
sxcomp = mycomp;
sxnem = 'BR ';
setll sxkeyc sycdx;
reade sxkeyc sycdx;
DoW Not %EOF();
BrName = scbrcd + '-' + %trim(scbnam);
BrCde = scbrcd;
Write DETAIL;
Reade sxkeyc sycdx;
EndDo;
Write FOOTER;
*InLr = *On;
/END-FREE
What am I doing wrong?
Thanks!!!!!