Good Morning Ed Thank you for pointing me to the SCTXABCC-Field. The Sxxx/Unnn-values seem to be stored in the low order 3 bytes of the field (in the form SSSUUU). But I'll need your help concerning the meaning of the 1st byte and the location of the reasoncode: I ran several tests but couldn't demistify the contents of the highorderbyte:
- COND CODE 0032 SCTXABCC = x'00000000' - that one's easy 8-); no abend, no code SYSTEM=000 USER=0000 REASON=00000000 SCTXABCC = x'40000000' - I *thought* x'40'= step abended, s=000 u=000 SYSTEM=000 USER=0498 REASON=00000000 SCTXABCC = x'400001F2' - abend, s=000 u=x'1F2' or u=498 SYSTEM=806 USER=0000 REASON=00000004 SCTXABCC = x'84806000' - x'04' = Reasoncode >0?? s=806, u=000 SYSTEM=66D USER=0000 REASON=00000031 SCTXABCC = x'0466D000' - disproves the "x'40'-assumption" made above SYSTEM=0C4 USER=0000 REASON=00000011 SCTXABCC = x'940C4000' - ?? S=0C4, u=000 And where the heck is the reasoncode stored? Any suggestion would be highly appreciated. Thanks again and have a great week Thomas -----Ursprüngliche Nachricht----- Von: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] Im Auftrag von Edward E. Jaffe Gesendet: Freitag, 22. Juli 2005 17:39 An: IBM-MAIN@BAMA.UA.EDU Betreff: Re: How to access return codes of previous jobsteps Thomas Ramseier wrote: >You are right, abends are not handled. I added 3 loc in the version >below and did a first test with a sample job. It looks quite ok, but >maybe some other members of the list are willing to do further tests. > > [snip] > If Bitand(sct_abnd,'04'X) = '04'X Then /* Step Abended */ > ltrl = ' **** Jobstep abended ***** ' > > It might also be nice if you pull the abend code from the SCTX and display something like "Abended Sxxx/Unnnn". -- .-----------------------------------------------------------------. | Edward E. Jaffe | | | Mgr, Research & Development | [EMAIL PROTECTED] | | Phoenix Software International | Tel: (310) 338-0400 x318 | | 5200 W Century Blvd, Suite 800 | Fax: (310) 338-0801 | | Los Angeles, CA 90045 | http://www.phoenixsoftware.com | '-----------------------------------------------------------------' ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
