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

M
Hello Dave,

You wrote:
>A truly brilliant piece of lateral thinking!

My sentiments exactly!

>There's a couple of tiny things. OVRPRTF should be to QPPGMDMP, not
>QPPGMDSP and the RCVMSG should have MSGTYPE(*LAST) to ensure it picks up
>the CPF0570. ... stuff deleted ....

MSGTYPE(*EXCP) will always get the most recent exception (usually an *ESCAPE) 
message -- the 
search starts from the bottom of the job message queue.  For other message 
types the search 
starts from the top in which case *LAST may be preferable.

Regards,
Simon Coulter.

«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»
«» FlyByNight Software         AS/400 Technical Specialists       «»
«» Eclipse the competition - run your business on an IBM AS/400.  «»
«»                                                                «»
«» Phone: +61 3 9419 0175      Mobile: +61 0411 091 400           «»
«» Fax:   +61 3 9419 0175      mailto: shc@flybynight.com.au      «»
«»                                                                «»
«» Windoze should not be open at Warp speed.                      «»
«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»
+---
| 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
+---