Re: Regarding *PSSR

["Simon Coulter" <shc@xxxxxxxxxxxxxxxxx>]

Hello Buck and Vikas,

You're right, Buck.  The *PSSR is not called when the job is terminated.  The 
earlier suggestions about using 
SHTDN will work if the program is not waiting for input.

What is required here is an invocation exit program.  Use the CEERTX (Register 
Call Stack Entry Termination 
User Exit Procedure) API.  This should be the first thing the program does, 
then if it is terminated by 
anything other than a return-to-caller the named program is executed -- usually 
to clean-up or restore some 
state.

You can also use the SETIEXIT MI insruction.

The exit program will get control when the invocation is terminated due to 
normal exception handling or when 
the process (job) is terminated.

The CEEUTX API or the CLRIEXIT MI instruction can be used to remove the exit 
program.

Regards,
Simon Coulter.

«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»
«» FlyByNight Software         AS/400 Technical Specialists       «»
«» Eclipse the competition - run your business on an IBM AS/400.  «»
«»                                                                «»
«» Phone: +61 3 9419 0175      Mobile: +61 0411 091 400           «»
«» Fax:   +61 3 9419 0175      mailto: shc@flybynight.com.au      «»
«»                                                                «»
«» Windoze should not be open at Warp speed.                      «»
«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»
//--- forwarded letter -------------------------------------------------------
> MIME-Version: 1.0
> Date: Tue, 09 Feb 99 08:48:29 -0500
> From: "Buck Calabro/commsof" <mcalabro@commsoft.net>
> To: MIDRANGE-L@midrange.com
> Reply-To: MIDRANGE-L@midrange.com
> Subject: Re: Regarding *PSSR

> 
> On 02/05/99 09:44:04 AM Vikas Taskar  wrote:
> 
> > What is the status code of "killing a job",ie,say,RPG0102 is the
> > status code if division by zero occurs,so similarly,what is the
> > status code in case a job is abnormally terminated by processing 
> > the attention key?
> >
> > (I need this because the subroutine *PSSR will handle the
> >  error,depending upon the status code of the error,which 
> >  will be stored in some variable)
> 
> I do not believe that *PSSR will be called when the program is cancelled. 
> Calcelling the job is not an error, I guess.
> 
> Buck Calabro
> CommSoft, Albany, NY
> mailto:mcalabro@commsoft.net

+---
| 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
+---