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 [email protected] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
