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
