RE: Find a CL program's library - While it is running

["Brendan Bispham" <midrangel@xxxxxxxxxxxxxxxxxx>]

This is really quite simple!

I thought I'd try that trick someone found the other day, where you override
a printer file to a PF and read it directly w/o CPYSPLF...

So OVRPRTF QPDSPJOB, then do a DSPJOB... didn't work
Tried DMPJOB - too long
Tried DMPCLPGM... it failed, but something interesting turned up..
here is the source:


 DCL        VAR(&MSGDTA) TYPE(*CHAR) LEN(20)
 OVRPRTF    FILE(QPPGMDSP) TOFILE(BADLIB/BADFIL)
 DMPCLPGM
 MONMSG     MSGID(CPF0000) EXEC(DO)
 RCVMSG     MSGTYPE(*EXCP) MSGDTA(&MSGDTA)
 SNDPGMMSG  MSGID(CPF9898) MSGF(QCPFMSG) MSGDTA('The +
              library is' *BCAT %SST(&MSGDTA 11 10))
 ENDDO

Make it a little more robust (the msgid is CPF0570) and it seems it'll do
the job.

Brendan Bispham

~ -----Original Message-----
~ From: owner-midrange-l@midrange.com
~ [mailto:owner-midrange-l@midrange.com]On Behalf Of John Earl
~ Sent: 04 May 1999 19:32
~ To: MIDRANGE-L@midrange.com
~ Subject: Find a CL program's library - While it is running
~
~
~ Does anyone remember the trick to finding a CL program's
~ library while it is running? (that's an important part of
~ this uestion <g>).
~
~ I thought that it involved the program sending a
~ message to itself, but I can't remember the specifics.
~ Any help?
~
~ jte
~
~ --
~ John Earl   johnearl@toolnet.com
~
~ PowerTech Toolworks  206-575-0711
~ PowerLock Network Security www.toolnet.com
~ The 400 School   www.400school.com
~ --
~ +---
~ | 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
~ +---
~

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