Rob You are correct 7FF……. Are LSQA type address
However my question is using VSMLIST SPACE=FREE SP=PVT the returned block descriptors are both allocated followed by the free Should I not be able to obtain the owning TCB With VSMLOC for the allocated block ? Thanks > On Sep 7, 2022, at 9:05 AM, Rob Scott <rsc...@rocketsoftware.com> wrote: > > Joseph, > > The example address you posted looks very much like LSQA to me - are you sure > it was returned by VSMLIST SP=PVT ? > > Also - did you check the return code from VSMLOC? > > Might be worth capturing a in-flight dump of the target address space and > comparing what you are seeing with IPCS VSMDATA. > > Rob Scott > Rocket Software > > -----Original Message----- > From: IBM Mainframe Discussion List <IBM-MAIN@LISTSERV.UA.EDU> On Behalf Of > Joseph Reichman > Sent: 07 September 2022 13:13 > To: IBM-MAIN@LISTSERV.UA.EDU > Subject: VSMLIST question > > EXTERNAL EMAIL > > > > > > Hi > > > > Its my understanding that when code the following (below the code for > VSMLIST) what gets returned in my work area is the both an allocated followed > by free storage this is what on understand from bullet 4 specified in the > authorized Assembler guide page 240 > > > > So for example I could get a block descriptor 00000001 7FFFFF88 00001000 > 00000001 7FFFFFF88 00000500 now it my understanding the > first 12 bytes is the allocated block descriptor > > > > However when I do a VSMLOC on that address I get nothing return in the TCB= > field > > > > > > > > I am running this code in SRB mode and move the storage I get returned to 64 > bit memory object > > > > thanks > > > > Code for VSMLIST > > > > > > LGF R8,PSAAOLD Get Home ASCB > > LGF R8,ASCBASXB-ASCB(,R8) Get asxb > > LGF R8,ASXBFTCB-ASXB(,R8) Get First tcb > > LGF R8,TCBJSTCB-TCB(,R8) > > > > > > Here id the VSMLIST invocation > > > > > > SAM31 > > VSMLIST SP=PVT, > > WKAREA=((R6),4096), > > SPACE=FREE, > > TCB=((R8),ALL) > > CH R15,=H'4' > > BH EXITLST > > SAM64 > > > > > > > > > > From the Authorized Assembler guide page 240 > > > > > > This figure describes the work area that VSMLIST produces when you use > SP=PVT. Note: 1. The number of subpools in the private area is a 31-bit > number. > > 2. The address of the TCB is contained in a fullword. > > 3. Figure 37 on page 218 shows the format of the allocated > storage information for the subpools owned by each TCB. > The storage information begins at offset 0, "number of subpools" in that > figure. > > 4. If you specify SPACE=FREE, free space information follows > each allocated block descriptor. Figure 42 on page > 221 describes the format of the free space information. > > > > > > > > Code for VSMLOC > > > > SAM31 > > VSMLOC PVT,AREA=((R3),(R4)),TCB=TCBW > > > > > > > > > ---------------------------------------------------------------------- > For IBM-MAIN subscribe / signoff / archive access instructions, send email to > lists...@listserv.ua.edu with the message: INFO IBM-MAIN > > ================================ > Rocket Software, Inc. and subsidiaries ■ 77 Fourth Avenue, Waltham MA 02451 ■ > Main Office Toll Free Number: +1 855.577.4323 > Contact Customer Support: > https://my.rocketsoftware.com/RocketCommunity/RCEmailSupport > Unsubscribe from Marketing Messages/Manage Your Subscription Preferences - > http://www.rocketsoftware.com/manage-your-email-preferences > Privacy Policy - http://www.rocketsoftware.com/company/legal/privacy-policy > ================================ > > This communication and any attachments may contain confidential information > of Rocket Software, Inc. All unauthorized use, disclosure or distribution is > prohibited. If you are not the intended recipient, please notify Rocket > Software immediately and destroy all copies of this communication. Thank you. > > ---------------------------------------------------------------------- > 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
