RE: Linking RPG module to a CL Program

["MCPARTLAND, Stan" <stanley.mcpartland@xxxxxxxxxx>]

Steve,

My previous post is incorrect.  The SNDPGMMSG to yourself technique just
retrieves the program name, not the library.  The DMPCLPGM technique will
retrieve both the program and the library.  See the sample code below.

Regards,
Stan

DCL        VAR(&MSGDTA) TYPE(*CHAR) LEN(20)         
DCL        VAR(&PROGRAM) TYPE(*CHAR) LEN(10)        
DCL        VAR(&LIBRARY) TYPE(*CHAR) LEN(10)        
                                                    
OVRPRTF    FILE(QPPGMDMP) TOFILE(NONEXIST/NONEXIST) 
DMPCLPGM                                            
MONMSG     MSGID(CPF0570) EXEC(DO)                  
RCVMSG     MSGTYPE(*EXCP) MSGDTA(&MSGDTA)           
CHGVAR     VAR(&PROGRAM) VALUE(%SST(&MSGDTA 1 10))  
CHGVAR     VAR(&LIBRARY) VALUE(%SST(&MSGDTA 11 10)) 
DLTOVR     FILE(QPPGMDMP)                           

-----Original Message-----
From: Steve Moland [mailto:Steve@Accessp.com]
Sent: Friday, 30 March, 2001 6:47 AM
To: Rpg400-L-Digest (E-mail)
Subject: Linking RPG module to a CL Program


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?
However I can't seem to find an example of how I'd prototype the call or use
of the module in a CL program. 
Is this something a CL program can't do? 
Steve Moland 
+---
| 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
+---