|
Awesome!!! Got a compile... Thanks! BTW... I was in your class at Common in Orlando last year. -----Original Message----- From: Bob Cozzi [mailto:cozzi@xxxxxxxxx] Sent: Wednesday, October 13, 2004 10:27 AM To: 'RPG programming on the AS400 / iSeries' Subject: RE: Trying to use my procedure from a pgm complied with CRTBNDRPG Looks like I was right. The procedure is exported in all upper case. So you did NOT use the same prototype source to compile the module in the service program as you are using now. Shame on you! To get it to work, change this: 0001.00 D GetSocSec PR 9P 0 Extproc('GetSocSec') To this: 0001.00 D GetSocSec PR 9P 0 -----Original Message----- From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Brenzel, Wendy Sent: Wednesday, October 13, 2004 9:10 AM To: 'RPG programming on the AS400 / iSeries' Subject: RE: Trying to use my procedure from a pgm complied with CRTBNDRPG I got this from DSPSRVPGM... Display Service Program Information Display 5 of 10 Service program . . . . . . . . . . . . : IDSERV Library . . . . . . . . . . . . . . . : MARYWOOD Owner . . . . . . . . . . . . . . . . . : QPGMR Service program attribute . . . . . . . : RPGLE Detail . . . . . . . . . . . . . . . . . : *PROCEXP Procedure Exports: Procedure Name ARGOPT GETSOCSEC *NO And I already had this... *************** Beginning of data ************************************* 0001.00 STRPGMEXP PGMLVL(*CURRENT) 0002.00 EXPORT SYMBOL(GetSocSec) 0003.00 ENDPGMEXP ****************** End of data **************************************** I have been trying several variations on the theme & have been deleting & recreating the service program after recreating the module for GEetSocSec... It is the only module associated with the sevice program so far, because I was trying to get this one to work first :) Then I tied the service program to the binding directory... Display Binding Directory Binding Directory: IDDIR Library: MARYWOOD --------Creation--------- Object Type Library Date Time IDSERV *SRVPGM MARYWOOD 10/12/04 15:58:51 -----Original Message----- From: Bob Cozzi [mailto:cozzi@xxxxxxxxx] Sent: Wednesday, October 13, 2004 9:54 AM To: 'RPG programming on the AS400 / iSeries' Subject: RE: Trying to use my procedure from a pgm complied with CRTBNDRPG This is a binding error. Do you have this... 0001.00 D GetSocSec PR 9P 0 Extproc('GetSocSec') Properly specified when the service program was created? When the module for the service program was created? Is GetSocSec exported from the service program? Do a DSPSRVPGM to see if the procedure is exported. I'm guessing it is either not exported, or is exported as GETSOCSEC. To export it, use EXPORT(*ALL) or better yet, create some binder source and add this line to it: EXPORT SYMBOL("GetSocSec") -Bob Cozzi -----Original Message----- From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Brenzel, Wendy Sent: Wednesday, October 13, 2004 7:55 AM To: 'rpg400-l@xxxxxxxxxxxx' Subject: Trying to use my procedure from a pgm complied with CRTBNDRPG I am missing the boat... Please help. I am trying to compile an rpg ile test program, using crtbndrpg, which calls a procedure. The procedure is compiled into a module, placed in a service program, which in turn is in a binding directory. The test program Compile message: E x t e r n a l R e f e r e n c e s Statically bound procedures: Procedure References GetSocSec 10 44 Imported fields: Field Attributes Defined No references in the source. Exported fields: Field Attributes Defined No references in the source. Message Totals: Information (00) . . . . . . . : 2 Warning (10) . . . . . . . : 0 Error (20) . . . . . . . : 0 Severe Error (30+) . . . . . . : 0 --------------------------------- ------- Total . . . . . . . . . . . . . : 2 Source Totals: Records . . . . . . . . . . . . : 46 Specifications . . . . . . . . : 25 Data records . . . . . . . . . : 0 Comments . . . . . . . . . . . : 18 * * * * * E N D O F F I N A L S U M M A R Y * * * * * B i n d D i a g n o s t i c M e s s a g e s Errors were found during the binding step. See the job log for more information * * * * * E N D O F B I N D D I A G N O S T I C M E S S A G E S Job log... 30 10/12/04 16:00:16.810368 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 'GetSocSec'. Cause . . . . . : No definition was found for reference GetSocSec in *MODU object WTESTPROC 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 tha contains a definition for symbol GetSocSec. This procedure receives an id number & sends back soc sec.... I'm missing d spec I think in the test call program.... Test Program... D Spec... /Copy mwdgpl/qrpglesrc,protoid Protoid... *************** Beginning of data ************************************* 0001.00 D GetSocSec PR 9P 0 Extproc('GetSocSec') 0002.00 D InIDNo 9P 0 Value ****************** End of data **************************************** c****************************************** C* Call the procedure c****************************************** c getit begsr /Free socsec=GetSocSec(id#); /End-Free c endsr ...Where id# & socsec are defined as 9p 0 Procedure... FMWDPUNIQ IF E K DISK D* D GetSocSec PR 9P 0 D InIDNo 9P 0 Value D* Status Data Structure D STATUS SDS 333 P************************************************** P* Procedure -GetSocSec P************************************************** P GetSocSec B Export D* Procedure Interface... D PI 9P 0 D InIDNo 9P 0 Value D* Local variables D SocSec S 9P 0 C* Housekeeping C Clear SocSec C* Retrieve Soc Sec from Unique File... C *in87 doueq '0' C InIDNo chain jxrcd 8887 C *in87 ifeq '1' C call 'LOCKMSG' C parm STATUS C end C end C *in88 ifeq '0' C z-add jxssn SocSec C end C* C Return SocSec P GetSocSec E ****************** End of data ************************************** I am compiling with CRTBNDRPG command, DFTACTGRP *NO & BNDDIR(IDDIR)...(Which contains my service program, which contains my procedure module.) Any suggestions? Wendy Brenzel Senior Programmer/Analyst MIS Department Marywood University Scranton, PA 18509 (570) 348-6221 ex2568 -- This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list To post a message email: RPG400-L@xxxxxxxxxxxx To subscribe, unsubscribe, or change list options, visit: http://lists.midrange.com/mailman/listinfo/rpg400-l or email: RPG400-L-request@xxxxxxxxxxxx Before posting, please take a moment to review the archives at http://archive.midrange.com/rpg400-l. -- This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list To post a message email: RPG400-L@xxxxxxxxxxxx To subscribe, unsubscribe, or change list options, visit: http://lists.midrange.com/mailman/listinfo/rpg400-l or email: RPG400-L-request@xxxxxxxxxxxx Before posting, please take a moment to review the archives at http://archive.midrange.com/rpg400-l. -- This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list To post a message email: RPG400-L@xxxxxxxxxxxx To subscribe, unsubscribe, or change list options, visit: http://lists.midrange.com/mailman/listinfo/rpg400-l or email: RPG400-L-request@xxxxxxxxxxxx Before posting, please take a moment to review the archives at http://archive.midrange.com/rpg400-l. -- This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list To post a message email: RPG400-L@xxxxxxxxxxxx To subscribe, unsubscribe, or change list options, visit: http://lists.midrange.com/mailman/listinfo/rpg400-l or email: RPG400-L-request@xxxxxxxxxxxx Before posting, please take a moment to review the archives at http://archive.midrange.com/rpg400-l.
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2024 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.
midrange.com
