Hi.
Brief summary: how to get a main task to abend with the same code as an
abending sub-task.
I noticed a problem a couple of days ago with a process we have had in place
for a long time. We have a main program whose sole function is to set an
address space non-swappable and bump the dispatching priority, before attaching
a TCB to run the real target program. The problem is that when the TCB running
the target program abends (in this case, it was an S806 because the steplib was
faulty), the main task returns an RC0 back to the operating system.
Here is the current ATTACH
ATTACH EPLOC=PGMNAME,ECB=ECB, *
SM=PROB, *
KEY=PROP, *
RSAPF=YES
I'm trying to get the abend to percolate back to the main task and back to the
operating system. I've tried specifying an ESTAI on the ATTACH, and the ESTAI
routine gets control for abends, but I'm having trouble figuring out how to
tell GCS to percolate. Any hints? I just need the job to abend instead of
returning RC0 (or a default RC that I set in the ESTAI routine).
New attach:
LA R1,PARMPTR
ATTACH EPLOC=PGMNAME,ECB=ECB, *
SM=PROB, *
KEY=PROP, *
RSAPF=YES, *
ESTAI=TERMEXIT
I'm trying to make this as simple as possible, but I've tried different
variations of SETRP as well.
USING TERMEXIT,R12
TERMEXIT DS 0H
LR R12,R15
STM R14,R12,12(R13) SAVE REGS IN SAVE AREA
LR R12,R15 ESTABLISH ADDRESSABILITY
ST R13,SAVER13 SAVE R13
L R13,SAVE@ LOAD THIS PROGRAM'S R13
LA R15,32 DEFAULT TO RC 32 FOR ABENDS
STCM R15,B'1111',RC SAVE DEFAULT RC
L R13,SAVER13 RESTORE REG 13
LM R14,R12,12(R13) RESTORE REGISTERS
XR R15,R15 TELL GCS TO PERCOLATE
BR R14 BRANCH BACK TO GCS
TERMEXIT_FIXED DS 0H
* TERMEXIT_FIXED AREA
SAVE@ DC A(SAVE) ADDRESS OF PROGRAM RSA
SAVER13 DC A(0) HOLDING AREA FOR R13
T12A DC Y(12) EYECATCHER FOR SDWA PRESENT
LTORG ,
Ken
Ken Moore
Online Systems Development
ADP Shared Services, Engineering & Data Processing
201 714 3826
[email protected]<blocked::mailto:[email protected]>
----------------------------------------------------------------------
This message and any attachments are intended only for the use of the addressee
and may contain information that is privileged and confidential. If the reader
of the message is not the intended recipient or an authorized representative of
the intended recipient, you are hereby notified that any dissemination of this
communication is strictly prohibited. If you have received this communication
in error, notify the sender immediately by return email and delete the message
and any attachments from your system.
----------------------------------------------------------------------
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
