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
