Re: Linking RPG module to a CL Program

[bmorris@xxxxxxxxxx]

>Date: Fri, 30 Mar 2001 09:47:25 -0500
>From: Steve Moland <Steve@Accessp.com>
>
>I'm still looking for direct way for a CL program to know what library it
>was loaded from. I don't have the option of passing in a parameter.
>
>If I created a small RPG module which used the Program Status Data
Structure
>I'd have the name of the library from which the program was loaded. Does
the
>MAIN program have to be RPG for structure to be populated?

Steve, create an RPG module, say GETLIB, like this:
D                sds
D  library               81     90
C     *entry        plist
C                   parm      library       lib              10
C                   eval      *inlr = '1'

Then in your CL, do
   CALLPRC GETLIB PARM(&library)

This is a case where the module must be bound directly and not
put in a service program.

Barbara Morris


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