RE: can a job know it is ending?

[J Michael Smith <JMichael.Smith@xxxxxxxx>]

This is a sample of the code(my thanks to Tom Liotta) that I use to detect
if the job has ended abnormally.  This code is would normally be at the
beginning of the SCOPEMS program.

SNDPGMMSG  MSGID(CPF9898) MSGF(QCPFMSG) MSGDTA('Begin +
             Scope Message processing')
CALL       PGM(QUSRJOBI) PARM(&RCVVAR X'00000090' +
             'JOBI0200' &PARM '                ')
CHGVAR     VAR(&JOBISTS) VALUE(%SST(&RCVVAR 108 4))
IF         COND(&JOBISTS = 'END') THEN(DO)
        .
        .
        .
RETURN
ENDDO
/* Normal completion */
        .
        .
        .
RETURN

Hope this helps.

Michael



-----Original Message-----
From: Leif Svalgaard [mailto:leif@attglobal.net]
Sent: April 22, 2002 01:06 PM
To: midrange-l@midrange.com
Subject: Re: can a job know it is ending?


that is what I was looking for. thanks/

From: J Michael Smith <JMichael.Smith@arch.com>
> Please review the archives..... looking for "scope message".
>
> I could be wrong, but I don't think the suggestions about cancel handlers
> will accomplish everything that you want.
>
> This is a small example of sending a "scope message".  Program SCOPEMS
will
> be called every time the job ends; normal or abnormal.
>
> Call       QMHSNDSM  ( +
>                        '*PGM'                 +
>                        'SCOPEMS   *LIBL'      +
>                        &KeyVar                +
>                        x'00000000'            +
>                        '0000'                 +
>                        x'0000000000000000'    +
>                      )
>


_______________________________________________
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list
To post a message email: MIDRANGE-L@midrange.com
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/cgi-bin/listinfo/midrange-l
or email: MIDRANGE-L-request@midrange.com
Before posting, please take a moment to review the archives
at http://archive.midrange.com/midrange-l.