Re: Handling errors in CLLE programs

[Vern Hamberg <vhamberg@xxxxxxxxxxxxxxx>]

I do this kind of thing many times when I want to put things back to how 
I found them when I came in the door.

RTVJOBA will let you retrieve the USRLIBL, among all the other things. 
Do that early on.

I just found an example of just what you need in the documentation for 
RTVJOBA - here it is -

/* Declare Variables */
DCL   &LIBL *CHAR 2750
DCL   &CHGLIBL *CHAR 2760
/*  save library list   */
RTVJOBA   USRLIBL(&LIBL)
 :
/*  Temporarily change library list  */
CHGLIBL   LIBL(MYLIB QGPL)
 :
/*  Build command string  */
CHGVAR   &CHGLIBL  ('CHGLIBL (' *CAT &LIBL *TCAT ')')
/*  restore library list  */
CALL QCMDEXC (&CHGLIBL 2760)

Cheers

'Vern

On 9/13/2022 11:36 AM, smith5646midrange@xxxxxxxxx wrote:
> I have a program that modifies the libl and then does processing.  If the
> program errors, I want it to pop the message, wait for the response, and
> then if the program is "C"ancelled, I want the libl reset back to the
> original before it exits.
>
>   
>
> Is there something that I can put in the CL that will ALWAYS execute this
> "library reset" no matter how the program ends?  I know I can MONMSG CPF0000
> at the top of the CL but that seems to intercept the original error.  I can
> probably retrieve the message and its text inside of the CPF0000 block and
> reissue it after the libl reset (I need the program to abend so it halts the
> job's flow) but I was just wondering if there was an easier way that I don't
> know about.
>
>   
>
> Thoughts?