Yes you can. You can set your own ESTAE and get control on a CANCEL (or any other ABEND -- set TRAP(NOSPIE) if you want S0Cx ABENDs also). You can percolate if you want LE's handler to get control (no idea how that works in COBOL). CANCEL is "unrecoverable." Whatever cleanup you want to do, you will have to do in your ESTAE exit. There is no "returning" to the COBOL. Several other ABENDs (most of the x22 family?) are unrecoverable. There is a bit in the SDWA that tells you this.
Can you clean up the array from assembler, from the exit? Charles -----Original Message----- From: IBM Mainframe Discussion List [mailto:[email protected]] On Behalf Of scott Ford Sent: Monday, December 4, 2017 2:29 PM To: [email protected] Subject: LE Recovery All: I have a STC in LE Cobol -- and want to be able to take action if an operator enters 'C stcname' from the console. I dont think i can use a condition handler to do this, please correct me if I am wrong. But I had a thought.. If i had a main line in assembler and set a ESTAE before calling a Cobol main routine, could i intercept the 'C stcname' and be able to recovery ? I have data sitting in a array and its critical, but have a customer who want to be able to take down a very active SECURITY admin type STC in 5 mins.. I am exploring what I can do ... Regards, Thanks in advance -- *IDMWORKS * Scott Ford z/OS Dev. “By elevating a friend or Collegue you elevate yourself, by demeaning a friend or collegue you demean yourself” www.idmworks.com [email protected] Blog: www.idmworks.com/blog *The information contained in this email message and any attachment may be privileged, confidential, proprietary or otherwise protected from disclosure. If the reader of this message is not the intended recipient, you are hereby notified that any dissemination, distribution, copying or use of this message and any attachment is strictly prohibited. If you have received this message in error, please notify us immediately by replying to the message and permanently delete it from your computer and destroy any printout thereof.* ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
