|
There is, of course, other ways to solve that problem. Here is one in CL: 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. Your starting program could be a CL program which passes the library on the subsequent programs. There is no need to be an MI-bigot... +--- | This is the MI Programmers Mailing List! | To submit a new message, send your mail to MI400@midrange.com. | To subscribe to this list send email to MI400-SUB@midrange.com. | To unsubscribe from this list send email to MI400-UNSUB@midrange.com. | Questions should be directed to the list owner/operator: dr2@cssas400.com +---
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.
midrange.com
