Re: Creating a SAVF

[Al Barsa <barsa@xxxxxxxxxxxxxxxxxxx>]

Hi,

Here's a solution that works in all trivial cases.

            CHKOBJ my_library_name *LIB
            MONMSG CPF9801 *N GOTO ALLDONE
            DLTLIB my_library_name
ALLDONE:

It will fail when the is a journal, journal receiver, of logical file in
this library with relationships to objects in other libraries.

Al

Al Barsa, Jr.
Barsa Consulting Group, LLC

400>390

914-251-1234
914-251-9406 fax

http://www.barsaconsulting.com
http://www.taatool.com



                                                                           
             Walt Fles                                                     
             <wfles@xxxxxxxxxx                                             
             m>                                                         To 
             Sent by:                  Midrange Systems Technical          
             midrange-l-bounce         Discussion                          
             s@xxxxxxxxxxxx            <midrange-l@xxxxxxxxxxxx>           
                                                                        cc 
                                                                           
             05/10/2004 03:24                                      Subject 
             PM                        Creating a SAVF                     
                                                                           
                                                                           
             Please respond to                                             
             Midrange Systems                                              
                 Technical                                                 
                Discussion                                                 
             <midrange-l@midra                                             
                 nge.com>                                                  
                                                                           
                                                                           




All,
I think this is too easy so I can't figure it out in CL:

PGM

If library_exists(my_library_name)
then
    dltlib lib(my_library_name)
end

What is the CORRECT way of coding that in CL?

Thanks!

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