Re: Checking if Library already added or not ?

This isn't a RPG solution but in CL I've done the following:

ADDLIBLE   LIB(V40BPCSUSR)
MONMSG     MSGID(CPF2103) EXEC(CHGVAR VAR(&LIBINLIST) +
             VALUE('Y'))

and then later in the program:

IF         COND(&LIBINLIST = 'N') THEN(DO)
RMVLIBLE   LIB(V40BPCSUSR)
ENDDO

If I just wanted to remove the library without returning the library list
to it's original state I could just do the RMVLIBLE with a MONMSG for
CPF2104.

Dave Parnin
--
Nishikawa Standard Company
Topeka, IN  46571
daparnin@xxxxxxxxxxxxxx




                                                                                
                               
                      "Luqman"                                                  
                               
                      <pearlsoft@xxxxxxx        To:       rpg400-l@xxxxxxxxxxxx 
                               
                      et.pk>                    cc:                             
                               
                      Sent by:                  Subject:  Checking if Library 
already added or not ?           
                      rpg400-l-bounces@m                                        
                               
                      idrange.com                                               
                               
                                                                                
                               
                                                                                
                               
                      01/04/2006 07:05                                          
                               
                      AM                                                        
                               
                      Please respond to                                         
                               
                      RPG programming on                                        
                               
                      the AS400 /                                               
                               
                      iSeries                                                   
                               
                                                                                
                               




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



--
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.