You have two choices an in-house solution similar to mine which I've
detailed below or use some 3rd party STDLIST checking software (I think this
is available from Gainsborough software).

We have all programs setting an MPE JCW at the start and end of its
processing with the JCL checking that variable too.

Thus, in pseudo-code, the first section of the program reads

 PROCEDURE DIVISION.
 MDNYAA SECTION.
 NYAA-ENTER.
*
     %SETSWERROR(9990#)
*
     DISPLAY "Program title "
     PERFORM  whatever sections you need....
     IF  abnormal-exit
         go to nyaa-exit.
*
     %SETSWERROR(0#)
*
  NYAA-EXIT.
     STOP RUN.

%SETSWERROR is a macro. It expands to a call of the putJCW intrinsic setting
the SWERROR JCW.

... the JCL becomes ...

!   SETVAR SWERROR 9999
!   RUN the_relevant_program
!   IF  SWERROR <> 0
!       SHOWVAR SWERROR
!       SHOWVAR CIERROR
!       TELLOP etc

If SWERROR isn't zero then it could be for two reasons (a) the program
didn't load (b) the program loaded, but never reached the final lines that
confirmed the program ran OK.

The beauty of this solution that it doesn't that require any special
analysis of the STDLIST.

-----Original Message-----
From: HP-3000 Systems Discussion [mailto:[log in to unmask]] On Behalf
Of Greg Stigers
Sent: 09 September 2004 02:44
To: [log in to unmask]
Subject: [HP3000-L] What did you just say?

I am looking at a problem job. It runs a program, which can fail with a
particular error message. This same program can also gracefully exit, giving
a different message on normal exit. When this job ends prematurely due to
the program failing, that's a bad thing, but as soon as someone is aware of
it (usually because the affected users call us), we simply restream the job.

Since fixing the problem with the program would require quite a bit more
work, I am looking at trying to have the job read the line with the
program's last message from its own stdlist. Presumably, the program's last
message will be some small number of lines from the end of the stdlist,
skewed by whatever code I add around the execution of the program. This
program produces thousands of lines of messages, so redirecting the output
into a temp file is not a favored solution.

I think that what I need to do is use HPJOBNUM to determine the spool id,
then capture the FINFO EOF of said stdlist, subtracting my offset, PRINT
START=!MSGLINE END=!MSGLINE>TEMPFILE, INPUT MESSAGE < TEMPFILE, and
appropriately handle the resulting value of MESSAGE.

Is that about right?

Greg Stigers

* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *

______________________________________________________________________
This email has been scanned by the MessageLabs Email Security System.
For more information please visit http://www.messagelabs.com/email
______________________________________________________________________



The contents of this email are confidential to the intended recipient
and may not be disclosed. Although it is believed that this email and
any attachments are virus free, it is the responsibility of the recipient to confirm this.

Smith & Williamson Corporate Finance Limited - A member of M&A
International Inc. http://www.mergers.net Registered in England No.
4533970. Authorised and regulated by the Financial Services Authority
Smith & Williamson Investment Management Limited, Registered No. 976145. Authorised and regulated by the Financial Services Authority.
Smith & Williamson Pension Consultancy Limited - Independent
Intermediary. Registered No. 3133226. Authorised and regulated by the
Financial Services Authority.
Smith & Williamson Fund Administration Limited, Registered No. 1934644. Authorised and regulated by the Financial Services Authority.
Smith & Williamson Limited - A member of Nexia International.
Registered in England No. 4534022. Regulated by the Institute of
Chartered Accountants in England & Wales for a range of investment
business activities.

Registered Office: No 1 Riding House Street, London W1A 3AS
Telephone: 020 7637 5377 http://www.smith.williamson.co.uk

Nexia Audit Limited - A member of Nexia International. Registered in
England No. 4469576. Registered to carry on audit work and regulated by the Institute of Chartered Accountants in England & Wales for a range of investment business activities.

Registered Office: No 1 Riding House Street, London W1A 3AS
Telephone: 020 7637 5377 http://www.nexiaaudit.co.uk

NCL Investments Limited, Registered No. 1913794.
Member of the London Stock Exchange authorised and regulated by the Financial Services Authority.

Registered Office: Bartlett House, 9-12 Basinghall Street, London  EC2V 5NS
Telephone: 020 7600 2801


______________________________________________________________________
This email has been scanned by the MessageLabs Email Security System.
For more information please visit http://www.messagelabs.com/email
______________________________________________________________________

* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *