Re: library list variables

["Todd Sabella" <Todd.Sabella@xxxxxxxxxx>]

     Give this a try...
     
     DCL        VAR(&USRLIBL) TYPE(*CHAR) LEN(275) 
     DCL        VAR(&CMDSTR) TYPE(*CHAR) LEN(308)
     DCL        VAR(&CMDLEN) TYPE(*DEC) LEN(15 5) VALUE(308)
     
     RTVJOBA    USRLIBL(&USRLIBL)
     
     change lib list for the application...
     
     call application...
     
     CHGVAR     VAR(&CMDSTR) VALUE('CHGLIBL LIBL(' *CAT +
                     &USRLIBL *TCAT ')')
     
     CALL       PGM(QCMDEXC) PARM(&CMDSTR &CMDLEN)
     
     
     __________________ Reply Separator _________________________________
Subject: library list variables
Author:  MIDRANGE-L@midrange.com at INTERNET 
Date:    5/2/2001 8:10 AM
     
     
Anyone know of a way to save the current library list, change it for an applicat
ion and then restore the original list?  I've tried saving to a 250 *char variab
le and then using CHGLIBL after the application, but the command doesn't underst
and the varia
ble.
     
I think I've seen this done a few years ago in DCMS, a package written by Kurt S
almon Associates in Atlanta, but I'm not certain now.
     
Thanks,
Brooks Roach
     
+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
| To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---