Changing the length to =AD(100) did it thanks Adam
> On Nov 13, 2023, at 1:04 PM, Joseph Reichman <reichman...@gmail.com> wrote: > > I’m using test to debug this thanks > >>> On Nov 13, 2023, at 11:28 AM, Adam Johanson >>> <0000031ca9d720a7-dmarc-requ...@listserv.ua.edu> wrote: >>> >>> Joe wrote: >>> I got a number of responses but I decided to use the post By Adam Johanson >>> using storage map services below is my code >> >> It appears that I am now pot-committed to this thread, so here goes. >> >> >> John P. wrote: >>> My suggestion would be to start from a function use of ADPLSACC which can >>> be found at https://planetmvs.com/ipcs/ivxSName.txt >> >>> Once you verify it's functioning correctly, start modifying it to access 64 >>> bit storage. Without a source listing, it's hard to tell if everything is >>> initialized correctly. >> >> ADPLSACC doesn't appear to work for accessing 64-bit storage, or at least I >> couldn't see how to get it to work. This is the reason I went with the >> Storage Map service and gave it as an example. >> >> >> Joe, in your excerpts, these lines pop out: >> >>> MVC MAPAST,VIRTUAL#STORAGE Virtual storage address space >>> MVC MAPAS2+2(2),ASID# >> >> It's not clear what VIRTUAL#STORAGE is, but following the example, MAPAST >> needs to be set to the ZZZASTCV EQUate for CPU/ASID type. Always better to >> use the provided EQUates. >> >> Also, you're moving the ASID# into MAPAS2+2 and it's not clear that the >> first 2 bytes of MAPAS2 have been initialized to zeroes (I assume that it >> matters). The code doesn't explicitly initialize them, and the area doesn't >> appear to be populated by an "initialized" BLSRSASY area. I would suggest >> having an initialized BLSRSASY area in the constant-area of your program and >> copy this into your WORKAREA copy. Doing this sets several fields for you >> that you don't have to explicitly set yourself, chief among them being the >> ABITS=64 business. >> >> And this line: >> >>> MVC MAPFLE,=A(100) >> >> MAPFLE is 8 bytes. >> >> There might be other problems in this sample, but these are the initial >> ones I see. It might be good to either use a debugger or get a dump at the >> time of your ADPLSERV invocation and make sure that the areas that you're >> passing line up with what they're supposed to look like, using the >> expansions in the listing. >> >> =============================== >> Adam Johanson >> Broadcom Mainframe Software Division >> >> ---------------------------------------------------------------------- >> 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
