> >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? >
If this is not resolved, then I would open a case with CA CA1 support. They have always been very helpful when I had issues with exits. I do not use that particular exit, so I am not familar with this code. Lizette ---------------------------------------------------------------------- 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
