RE: Easy way for CL program to know what library it's in?

["Monnier, Gary" <Gary.Monnier@xxxxxxxxx>]

Tom Liotta maybe?

Gary 


-----Original Message-----
From: midrange-l-bounces@xxxxxxxxxxxx
[mailto:midrange-l-bounces@xxxxxxxxxxxx] On Behalf Of Wyatt, Chris
(FGWA-IL)
Sent: Monday, November 07, 2011 12:11 PM
To: Midrange Systems Technical Discussion
Subject: RE: Easy way for CL program to know what library it's in?

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.


--
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.