A while I posted about accessing ipcs storage above the bar 64 bit as with storage access I could only get 31 bit
I got a number of responses but I decided to use the post By Adam Johanson
using storage map services below is my code
I get a rc zero in r15 however storage area address XMSPBUFF contains all
zeros
In IPCS I did a list subcommand from the value of double word value in
TSTAUVCT and it had the values I was expecting however using storage map
services I get zeros in the area pointed to by XMSPBUF
*
LA R7,WORKMAP
USING MAP,R7
LA R10,WRKMPL
USING XMSP,R10
MVC MAPRID,=C'SA'
MVC XMSPMODN,=C'TSTAIPCS'
ST R7,XMSPSAR
MVC XMSPCODE,=Y(XMSPACC)
MVC XMSPIDC,=C'XMSP'
MVI XMSPIDL,C'1'
MVC MAPAST,VIRTUAL#STORAGE Virtual storage address space
MVC MAPAS2+2(2),ASID#
* MVC MAPDTD(30),=31C' '
* MVI MAPDTE,C' '
MVC MAPAS1,=F'-1'
MVC MAPLAD,TSTAUVCT
MVI MAPDTY,ZZZDTYU
MVC MAPFLE,=A(100)
OI XMSPPFL1,XMSPV64
LA R0,1000
STORAGE OBTAIN,LENGTH=(0),ADDR=(R5),SP=0
ST R5,XMSPBUF
L 15,ADPLSERV
CALL (15),((R8),MAP#SERVICE,(R10)),MF=(E,CALLLST)
*------------------------------------------------------------
PPR2 BLSUPPR2 DSECT=NO IPCS expanded print parm list
XMSP BLSRXMSP DSECT=YES
XMSPLEN EQU *-XMSP
MAP BLSRSASY DSECT=YES,ABITS=64
WORKAREA DSECT
DS XL144
*EGSAVE DS XL144
WORKPACC DS 0D,CL(ADPLLACC)
WORKPPR2 DS 0D,CL(PPR2999-PPR2000)
WORKESSY DS 0D,CL(ESSYHRL)
WORKMAP DS 0D,CL(MAPHRL)
WRKMPL DS 0D,CL(XMSPLEN)
SNAMHXSV DS CL8
SNAMSAVE DS CL8
SNAMHXLN DS F
CALLLST CALL ,(,,,,,,),MF=L
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
