Re: Creating a SAVF

[Wayne McAlpine <wmcalpine@xxxxxxxxxxxxxxxxx>]

pgm
dltlib mylib
monmsg cpf2110  /* library not found */
endpgm

This will delete the library if it's there, ignore it if it's not.  But 
your title refers to a SAVF.  Usually a SAVF has the same name as the 
library being saved.  If it's the savf you want to check for, use the 
following code instead:

pgm
dltf mylib
monmsg cpf2105  /* file not found */
endpgm

You can use the chkobj command to see if the file exists, but it forces 
you to use a goto and I try to avoid that if possible.  Just executing 
the command and monitoring for the not found message is simpler and more 
direct IMHO.

Walt Fles wrote:
> 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.