If by own TCB of a job, you mean the job step TCB of the currently
executing step which is either the current TCB, or some TCB for which
the current TCB is a subtask (or other descendant), then the following
should find the TCB:
USING PSA,R0
L R3,PSATOLDCurrent TCB (zero for SRB mode)
USING TCB,R3
L R3,TCBJSTCB Job step TCB
Stephen R. Donaldson, Code Magus Limited (England reg. no. 4024745)
Number 6, 69 Woodstock Road, Oxford, OX2 6EY, United Kingdom
Voice: +44 1865 310 768 Fax: +44 1865 316 979 Cell: +44 787 9897709
Support: +44 1865 589826
Skype:vixxmovz SkypeIn +44 1865 589820
http://www.codemagus.com mailto:step...@codemagus.com
Schwarz, Barry A wrote:
We are migrating our CA-1 TMSXITJ accounting exit from OS/390 (where it was
called TMSUX2J) to z/OS 1.11. The exit needs to find the TCB for the batch job
mounting the tape. What has worked in the past is
USING PSA,R0
L R3,PSAAOLD
USING ASCB,R3
L R3,ASCBASXB
USING ASXB,R3
L R3,ASXBFTCB
USING TCB,R3
Unfortunately, under z/OS it produces the address of a random TCB. We tried
changing the code to obtain the TCB address directly from PSATOLD but that
doesn't seem to be working either.
As part of our debugging we added some WTOs. Since the messages showed up in
the job log, we assume the exit is running in the batch job's address space.
Surely there is way for a job to find it's own TCB?
--
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
--
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