Re: NoMain w/ details

["John Taylor" <john.taylor@xxxxxxxxxxxxxxx>]

For the archives:

I'm sure Patrick meant to say that he needed the "Export" keyword on the
procedure interface, not the prototype (PR). ie:

PI2_1500R         B              EXPORT


John Taylor
Canada

----- Original Message -----
From: "Patrick Conner" <pwconner@charter.net>
To: <RPG400-L@midrange.com>
Sent: Wednesday, May 30, 2001 08:07
Subject: Re: NoMain w/ details


> *** NEVERMIND ***
>
> !!!!   I forgot the keyword 'Export' on the PR spec.   !!!!
>
> On Wed, 30 May 2001 09:26:21 -0400
>  "Patrick Conner" <pwconner@charter.net> wrote:
> > 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
+---