RE: NoMain w/ details

Export?

Eric DeLong
Sally Beauty Company
MIS-Sr. Programmer/Analyst
940-898-7863 or ext. 1863
 


-----Original Message-----
From: Patrick Conner [mailto:pwconner@charter.net]
Sent: Wednesday, May 30, 2001 8: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
+---

+---
| 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
+---