That works. Here's my code
* Before issuing the DETACH pick up a possible ABEND Reason code
SR R2,R2 Indicate none
TM ATCHECB,X'40' Has the task completed?
BNO MVSANOAB No, probably has not ABENDed
*
* TCBRV316 is documented as "INDICATES REASON CODE (TCBARC) IS VALID"
TM TCBCMPF-TCB(R3),TCBRV316
JNO MVSANOAB None
*
L R2,TCBARC-TCB(,R3) Get ABEND reason code
MVSANOAB EQU *
Charles
-----Original Message-----
From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On Behalf
Of Binyamin Dissen
Sent: Wednesday, April 21, 2010 3:34 AM
To: IBM-MAIN@bama.ua.edu
Subject: Re: Where ABEND reason code?
On Tue, 20 Apr 2010 16:34:14 -0700 Charles Mills <charl...@mcn.org> wrote:
:>If I ATTACH a sub-task and it ABENDs, I know the ABEND code is in the ECB
:>(in that double 12-bit format). Where is the reason code? TCBARC?
Would expect so (if the flag bit is set).
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
