RE: NoMain w/ details

[Rich Davidson <rdavidson@xxxxxxxxxxx>]

Title: RE: NoMain w/ details

I believe you may need the keyword EXPORT on the procedure if it is not in the same sourece member.

-----Original Message-----
From: Patrick Conner [mailto:pwconner@charter.net]
Sent: Wednesday, May 30, 2001 9:26 AM
To: rpg400-l@midrange.com
Subject: NoMain w/ details

Here are the details.
Please, don't beat me up for not using copy books.

Calling proc code (Note: I'm not interested in the return
code for my test):

DI2_1500R         Pr              N       
D#InqRef                         7P 0 Const
D#InqRefLine                     3P 0 Const

C                   CallP     I2_1500R($RefNo:$RefLine)

Called proc code:

H NoMain

DI2_1500R         Pr              N                    
D#InqRef                              Like(IDRef) Const
D#InqRefLine                          Like(IDRLne) Const

PI2_1500R         B                                    
                                                       
DI2_1500R         PI              N                    
D#InqRef                              Like(IDRef) Const
D#InqRefLine                          Like(IDRLne) Const

CrtPgm statement:
Create Options . . . .   MODULE(I2_1502R I2_1500R I2_1510R)
                                BNDSRVPGM(CENTERTXT CVTATTR
GETPRDID)
                                BNDDIR(QC2LE) ACTGRP(QILE)

Error in compile:
Message . . . . :   Definition not found for symbol
'I2_1500R'.
+---
| This is the RPG/400 Mailing List!
| To submit a new message, send your mail to RPG400-L@midrange.com.
| To subscribe to this list send email to RPG400-L-SUB@midrange.com.
| To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---