RE: Checking if Library already added or not ?

Hi Luqman

Not really an RPG question, but the way I do this is to monitor for an error
on the ADDLIBLE command and then set a flag to condition whether or not the
library is removed at the end of the CL.  For example:

             PGM                                                 
                                                                 
             DCL        VAR(&RMVLIB) TYPE(*LGL) VALUE('1')       
                                                                 
             ADDLIBLE   LIB(LIBRARY)                             
             MONMSG     MSGID(CPF2103) EXEC(CHGVAR VAR(&RMVLIB) +
                          VALUE('0'))                            
                                                                 
             CALL       PGM(RPGPGM)                              
                                                                 
             IF         COND(&RMVLIB *EQ '1') THEN(DO)           
             RMVLIBLE   LIB(LIBRARY)                             
             MONMSG     MSGID(CPF0000)                           
             enddo                                               
                                                                 
             ENDPGM                                              

All the best

Jonathan

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx]
On Behalf Of Luqman
Sent: 04 January 2006 12:06
To: rpg400-l@xxxxxxxxxxxx
Subject: Checking if Library already added or not ?

How can I check in CL, if library already added or not ?

Say, I run a CL which Adds a library myLib with:

PGM
ADDLIBLE lib(MYLIB)
ENDPGM

Now, when I run my RPG Application, this CL adds the library, however if my
RPG Program terminates in the middle due some error, and I re-run the
program, the error occurs, that Library already Added, How can I check not
to Add Library again, if its already added in current session.

Best Regards,

Luqman