Return to the CL Tips
Get the Library Name for the current program
PGM DCL &MSGDTA *CHAR 20 OVRPRTF QPPGMDMP QSYS/QDARCDSP DMPCLPGM MONMSG CPF0570 RCVMSG MSGTYPE(*EXCP) MSGDTA(&MSGDTA) ENDPGMThe 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.
[report a broken link by clicking here]