Donald, Does z/OS in parms or by default turn on access to 64 bit storage ?
Scott ford www.identityforge.com Tell me and I'll forget; show me and I may remember; involve me and I'll understand. - Chinese Proverb On Dec 13, 2012, at 11:20 AM, Donald Likens <dlik...@infosecinc.com> wrote: > I did not understand why the documentation in the "Extended Addressabilty > Guide" stated "The IARV64 macro provides all the virtual storage services for > your programs." and then I find IARST64 documented in the "Assembler Services > Reference". So I did some testing: > > Code Executed: > > SYSSTATE AMODE64=YES > N R12,=X'7FFFFFFF' > MODESET MODE=SUP,KEY=ZERO /* MUST BE KEY 0 WHEN ISSUE ESTAE*/ > SAM64 > IARST64 REQUEST=GET, * * X > AREAADDR=THEAREAADDR, * * X > SIZE=THEAREASIZE,TYPE=PAGEABLE, * * X > COMMON=YES,OWNER=SYSTEM, * * X > FPROT=YES, * * X > CALLERKEY=YES, * * X > FAILMODE=RC, * * X > REGS=SAVE, * * X > RETCODE=LRETCODE,RSNCODE=LRSNCODE * > LG R2,THEAREAADDR > LA R3,15 > LA R4,=C'MEAS 64 STORAGE' > LGR R5,R3 > MVCL R2,R4 > SAM31 > WAIT ECB=WAITE > > What I learned: > 1) I need to learn a whole lot about 64 bit programming. > 2) The storage obtained was still available after the job was cancelled > (COMMON=YES,OWNER=SYSTEM) as I hoped. > 3) The storage obtained was visable from other address spaces (I looked in a > dump of a TSO user) as I hoped. > 4) The storage obtained was only 64 bytes (as documented by the IARST64 > documentation. > 5) I did not have to obtain the storage using IARV64. I did not have to use > IARV64 to SHAREMEMOBJ. > > It works exactly as I hoped. I will keep you informed if I learn more on this > issue. > > ---------------------------------------------------------------------- > 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
