For the archives in case someone else runs into a similar problem. Our IEFUJI exit GETMAINs memory for a TCB extension, stores selected data from the SMF parameters and the ACEE in this memory, and places the address of the extension in TCBUSER. We then use the data in the extension for our TSO submit exit and the CA-1 accounting exit.
In all the exits, we find the TCB address using PSAOLD->ASCBASXB->ASXBFTCB and the ACEE address using ASXBSENV. This has worked for us from MVS 4.5 back in the early 90s all the way through OS/390 1.3, 2.5, and 2.10. Something obviously changed in the interval to z/OS 1.11. I don't know if it was in z/OS or in the newer version of CA-1 (probably CA-1). The net result is that the CA-1 accounting exit is called before our IEFUJI has populated the TCBUSER field. Our solution to use code similar to IEFUJI in our accounting exit and extract the desired data directly from the SMF parameters and the ACEE. The problem does not affect our TSO submit exit. By the time a TSO user can submit a job, the TCBUSER field contains the address of our TCB extension. Thanks to all who responded with suggestions. > -----Original Message----- > From: IBM Mainframe Discussion List [mailto:[email protected]] On > Behalf Of Schwarz, Barry A > Sent: Monday, August 29, 2011 5:53 AM > To: [email protected] > Subject: CA-1 TMSXITJ > > 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 ---------------------------------------------------------------------- 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
