It is Program B that needs to do the ALESERV to add the STOKEN for address space A to address space B's access list. There is no use to having program A adding address space A to address space A's access list.
Jim Mulder -----Original Message----- From: IBM Mainframe Discussion List <[email protected]> On Behalf Of Richard Zierdt Sent: Tuesday, October 1, 2024 12:22 AM To: [email protected] Subject: Cross-Memory Access: Can an Address Space be treated as a Data Space using an ALET? The goal is to read data from an address space (not a data space) using an ALET. The idea is "Program A" creates its own ALET that another program ("Program B") uses in its address space to read data from Program A's address space. Is this possible ? A summary of Program A code (AMODE31, RMODE24, authorized) is: ALESERV EXTRACTH,STOKEN=stoken Returns STOKEN for the address space MODESET KEY=ZERO Needed, or return code from ALESERV is not zero ALESERV ADD AL=PASN, STOKEN=stoken, input STOKEN ALET=HomeALET, output ALET CHKEAX=NO, AL=PASN, ACCESS=PUBLIC, MF=(E,ALESERV) SYSEVENT DONTSWAP make unswappable WTOR sit on a WTOR so that Program B can access Program A's address space Result is HomeALET=x'01010038' which looks good, except that Program B gets an 0E0, Reason Code 29 (hex) abend using that ALET. "An ALET specified an access list entry (ALE) that is not valid." A summary of Program B code (AMODE31, RMODE24, authorized) is: SAC 512 sets the ASC mode to AR mode LAM 0,15,Zeros clear access registers L R6,=x'00007000' load offset to data into GR6 LAM 6,6,=x'01010038' load ALET of Program A into AR6 Abend0E0 MVC Here,0(R6) copy data from Program A to Here SAC 0 escape AR mode Here ds CL32 SYSTEM COMPLETION CODE=0E0 REASON CODE=00000029 ACTIVE MODULE ADDRESS=00000000_00007000 OFFSET=00000050 NAME=PROGRAMB DATA AT PSW 0000704A - C0809A66 C084D21F C05C6000 AR/GR 0: 00000000/00000064 1: 00000000/00006FF8 2: 00000000/00000040 3: 00000000/008DBD64 4: 00000000/008DBD40 5: 00000000/008FB058 6: 01010038/00007000 7: 00000000/00FBB880 8: 00000000/008FD608 9: 00000000/008D0CB0 A: 00000000/01DE1E00 B: 00000000/00000001 C: 00000000/80007000 D: 00000000/00008000 E: 00000000/80FD66D8 F: 00000000/80007000 Any help appreciated; Thanks -- Richard Zierdt Confidentiality Warning/Avertissement de confidentialité: This message is intended only for the named recipients. This message may contain information that is privileged or confidential. If you are not the named recipient, its employee or its agent, please notify us immediately and permanently destroy this message and any copies you may have. Ce message est destiné uniquement aux destinataires dûment nommés. Il peut contenir de l'information privilégiée ou confidentielle. Si vous n'êtes pas le destinataire dûment nommé, son employé ou son mandataire, veuillez nous aviser sans tarder et supprimer ce message ainsi que toute copie qui peut en avoir été faite. ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
