Is the RB chain intact after an ABEND? If so, you can look at R15.

--
Shmuel (Seymour J.) Metz
http://mason.gmu.edu/~smetz3

________________________________________
From: IBM Mainframe Discussion List <IBM-MAIN@LISTSERV.UA.EDU> on behalf of 
Kirk Wolf <k...@dovetail.com>
Sent: Saturday, August 3, 2019 2:05 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Getting ABEND reason code from attached subtask

I'm curious.
Say that I have something like:

ATTACH EP=MYPROG,ECB=MYECB
LTR R15,R15
BZ ATTERR
ST R1,MYTCB
WAIT 1,ECB=MYECB
DETACH MYTCB

I know that I can get either the subtask return code or ABEND completion
code(s) from the ECB.  But in the case of an ABEND, is there an easy way to
get the reason code?
Or do I need an ESTAI routine on the ATTACH to capture that?
Similarly, what about the normal completion reason code (R0)?

Thanks,

Kirk Wolf
Dovetailed Technologies
http://secure-web.cisco.com/1dsNePaOANn8XRbYwmnZpDKwNBiSFxchJB8OqygwaXMjrIA1rN8R-MMyngCIk3Zuz0G0vDKG_rD8RVD9P9hwPJcN6eS4LKSthQcKYRpVph3Pj6unY5PpuIVQz3zFIt4QQjOacglgeOUFn92mswmebcNvTXA4xo955wRLxa9PNl9aJMAQuPCUwHsmJRjLd7pbqQS1LMEf-OlmknK1R5bWVVahZiCEhih605vn4TOKIg2jHXkaDs9UO5xJGtAUm4fOjPcJIdsbNvje7O3dWx188nUwdTsSNAzkCVa1z_dcAyRrVhg-5nlwaJSfn6fo-6npw10UbbFCIIGr8rTDFj810ZupilRA8y8E_99luw6zQPxp4K9t3BeejLHUmxurvoGCSBOZaKhKDAo5406seFYwdJg4_b-3p562Gvkij01do6AcnxcouflqxflZnucNmTjhh/http%3A%2F%2Fdovetail.com

----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Reply via email to