I've forgotten where I originally got this...
DCL VAR(&MSGDTA) TYPE(*CHAR) LEN(512)
DCL VAR(&PGM) TYPE(*CHAR) LEN(10)
DCL VAR(&ORGLIB) TYPE(*CHAR) LEN(10)
DLTF FILE(QTEMP/NOTFOUND)
MONMSG MSGID(CPF2105) EXEC(DO)
RCVMSG MSGTYPE(*EXCP)
ENDDO
OVRDBF FILE(QPPGMDMP) TOFILE(QTEMP/NOTFOUND)
DMPCLPGM
MONMSG MSGID(CPF0570) EXEC(DO)
RCVMSG MSGTYPE(*DIAG)
RCVMSG MSGTYPE(*EXCP) MSGDTA(&MSGDTA)
CHGVAR VAR(&PGM) VALUE(%SST(&MSGDTA 1 10))
CHGVAR VAR(&ORGLIB) VALUE(%SST(&MSGDTA 11 10))
ENDDO
DLTOVR FILE(QPPGMDMP)
...I've used this in so many places I've lost count.
cw
-----Original Message-----
From: midrange-l-bounces@xxxxxxxxxxxx [mailto:midrange-l-bounces@xxxxxxxxxxxx] On Behalf Of James Lampert
Sent: Monday, November 07, 2011 12:49 PM
To: Midrange Systems Technical Discussion
Subject: Easy way for CL program to know what library it's in?
Is there an easy way for a CL program to know what library it's located in?
It needs to access a similarly named IFS directory, according to the library where it lives.
--
JHHL
--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list To post a message email: MIDRANGE-L@xxxxxxxxxxxx To subscribe, unsubscribe, or change list options,
visit:
http://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxx Before posting, please take a moment to review the archives at
http://archive.midrange.com/midrange-l.
midrange.com
