Re: Runtime errors in a program

[Scott Klement <rpg400-l@xxxxxxxxxxxxxxxx>]

Hmmm.. there are a number of options, depending on the specific details, 
different ones might be useful.

There's RPG's   ON-EXIT... this always runs before the program exits, 
even if the program ends in error...  so you could reset the connection 
there.  That'd be simple.

There is CEE4RAGE -- a system API that you can use to register a 
subprocedure that is called when the activation group ends.  This can 
serve a similar purpose, and allow you to keep the connection open while 
the activation group is active.

There are CEERTX/CEEUTX APIs that can register/unregister a routine to 
call when a given call-stack entry ends abnormally.

There is MONITOR/ON-ERROR/ON-EXCP/ENDMON -- for a situation like yours, 
you could put all of your connection code into a subprocedure and call 
it within the MONITOR block, and if the procedure receives an error that 
it doesn't handle itself, it'll run your ON-ERROR block.

There's *PSSR/INFSR as well, I'm not a big fan, I've found these awkward 
and error-prone... but they still exist.

Is this helpful?

On 7/26/23 2:17 PM, smith5646midrange@xxxxxxxxx wrote:
> Was there something in RPGLE that replaced the *PSSR or am I thinking of
> something in a different language?
>
>   
>
> I have a program that changes the SQL connection to connect to other systems
> and retrieves information from them.  When it is done, it resets the
> connection.  If an error occurs somewhere during the processing, I need to
> be sure it resets the connection.  I'd like to do this globally instead of
> using MONITOR/ON-ERROR to make sure I don't miss a spot.