|
Now that I have created a few procedures, complete with prototype, service program, binding directory. Prototype: * Retreive ID# from SocSec D IDOF PR 9P 0 D InSSNo 9P 0 Value How used in RPGLE... IdNo=IDOF(ss#) Wth the following in the header rec... DFTACTGRP(*NO) BNDDIR('DIRID') I want to use it in a CLLE.. CALLPRC PRC(idof) PARM(&IDSSN) RTNVAL(&Idn) The CRTBNDCL command doesn't allow me to tie this to the binding directory.. Job Log... Message . . . . : - CRTBNDCL PGM(SSN/CLA03505) SRCFILE(SSN/QCLSRC) SRCMBR(CLA03505) DFTACTGRP(*NO) ACTGRP(*STGMDL) REPLACE(*YES) 00 01/04/05 14:33:55.760448 QSYCHONR QSYS 05F0 QLIINSRT Message . . . . : Ownership of object CLA03505 in QTEMP type *MODULE changed. Cause . . . . . : The ownership of object CLA03505 in library QTEMP type *MODULE has changed. 30 01/04/05 14:33:56.618696 QBNBIND QSYS *STMT QBNBIND From module . . . . . . . . : QBNBSYMR From procedure . . . . . . : QBNBSYMR__UnresolvedReferenceIterator Statement . . . . . . . . . : 31 To module . . . . . . . . . : QBNBSYMR To procedure . . . . . . . : QBNBSYMR__SignalUnresolvedReferences Statement . . . . . . . . . : 8 Message . . . . : Definition not found for symbol 'IDOF'. Cause . . . . . : No definition was found for reference IDOF in *MODULE object CLA03505 in library QTEMP. The definition either does not exist or 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 IDOF. Huh?? Wendy
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2025 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.