Senior moment. I was thinking of a different PSA field and conflated it with the old pointer.
-- Shmuel (Seymour J.) Metz http://mason.gmu.edu/~smetz3 עַם יִשְׂרָאֵל חַי נֵ֣צַח יִשְׂרָאֵ֔ל לֹ֥א יְשַׁקֵּ֖ר ________________________________________ From: IBM Mainframe Discussion List <IBM-MAIN@LISTSERV.UA.EDU> on behalf of Peter Relson <0000056a472f7cb4-dmarc-requ...@listserv.ua.edu> Sent: Thursday, September 11, 2025 8:35 AM To: IBM-MAIN@LISTSERV.UA.EDU <IBM-MAIN@LISTSERV.UA.EDU> Subject: Re: LE Question External Message: Use Caution <snip>0000000000DD30C6 L 58C00010 00000010 CC 2 < A(CVT) G12=0000000000009508 0000000000DD30CA L 58CC0000 ???????? CC 2 < TCB OLD pointer G12=00000000000004B0 0000000000DD30CE L 58CC0004 ???????? CC 2 < No idea what this – seems to be A(IHAEPIE) G12=0000000000E99570</snip> This got off to a bad start because the instruction at DD30CA was not picking up "TCB OLD pointer" (and therefore the next instruction was not picking up TCBPIE). It was picking up an address from the CVT which itself locates a group of pointers. As shown in Data Areas (or the CVT mapping itself), the first word at CVTMAP is CVTTCBP.That has the address of IEATCBP which is PSA+x'218' or PSATNEW.At +4 from there is PSATOLD. Thus the instruction at DD30CE is picking up PSATOLD. Then 58CC0144 is picking up TCBCELAP. And the last instruction is picking up the first word in the area pointed to by TCBCELAP. <snip>L 12,0(12) A(TCB old/new) L 12,4(12) A(TCB New) </snip> Jim got this backwards. The first picks up the address of TCB new/old (which is in the PSA) and the second picks up the address of TCB old (i.e., PSATOLD) Peter Relson ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
