Re: Determining what library a CL program is called from?

["Henrik Krebs" <hkrebs@xxxxxxxxx>]

Nedenfor er resultatet af din e-mail formular.
Indsendt af hkrebs@hkrebs.dk

message: There was somebody on this list that a few months ago came up with 
this ingenious solution (sorry that I don't have his name here. He deserves the 
credit for it):

PGM                                  
DCL &MSGDTA *CHAR 20                 
OVRPRTF QPPGMDMP QSYS/QDARCDSP       
DMPCLPGM                             
MONMSG CPF0570                       
RCVMSG MSGTYPE(*EXCP) MSGDTA(&MSGDTA)
ENDPGM                               
The OVRPRTF (to any DSP-file) will make the DMPCLPGM fail with CPF0570. The 
&MSGDTA will contain the name (Pos 1-10) and library (pos 11-20) of the program 
itself.


Regards

Henrik Krebs
http://hkrebs.dk

realname: Henrik Krebs
email: hkrebs@hkrebs.dk


REMOTE_HOST: 134.146.4.10

+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
| To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---