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

Ingenius!

OVRPRTF FILE(QPPGMDSP) should be OVRPRTF FILE(QPPGMDMP) however (DMP, not
DSP). Is this a 'last minute change' (after the copy/paste) or a
continuation of the method (mistyping) that made the DMPCLPGM fail the
first time? 

----------
> Fra: Brendan Bispham <midrangel@black-and-blue.com>
> Til: MIDRANGE-L@midrange.com
> Emne: RE: Find a CL program's library - While it is running
> Dato: 5. maj 1999 11:30
> 
> 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
> +---
+---
| 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
+---