Personally, I would take a dump and use IPCS to go through the pointers with pencil and paper to make sure I understand the linkage, and it points to what I want. For example, to find the job name from an ASCB is either pASCB+ASCBJBNI or pASCB+ASCBJBNS depending if it is a job or started task. You can use the runchain IPCS command to run a chain... then do it in your code. Colin
On Sat, 4 Feb 2023 at 23:00, [email protected] <[email protected]> wrote: > . > Hello > > I am on a z/os 2.2 system, trying to rseurrect some old code. > . > can some one confirm the instructions for Searching the > Address Space Vector Table (ASVT) on z/OS 2.2 > . > This program loads R10 with CVTASVT > L R10,CVTASVT GET ASVT ADDRESS > USING ASVT,R10 ESTABLISH ADDRESSABILITY > . > It then issues a Load Address For the first entry ? > This doesn't look correct to me ? > LA R11,ASVTENTY GET # OF FIRST ENTRY > . > Next its test for an ASCB that is assigned. > TM 0(R11),ASVTAVAL VALID ASCB Available ? > BO RUNLOP1 NO, CHECK NEXT ASVT ENTRY > . > * Examine ASCB > . > . > Besides the Load Address above - How should this module > advance to the Next ASVT entry ? > Shoud I issue the following to get to the next ASVT > L R10,ASVTFRST > . > The current code issues the following instruction, which > looks incorrect according to IHAASVT > LA R11,4(,R11) Advance NEXT ASVT ENTRY > . > . > Your comments please > . > Paul D'Angelo > *************** > > ---------------------------------------------------------------------- > For IBM-MAIN subscribe / signoff / archive access instructions, > send email to [email protected] with the message: INFO IBM-MAIN > ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
