This works for me: /* REXX */ ASCB = C2d(Storage(224,4)) ASXB = C2d(Storage(D2x(ASCB+108),4)) ACEE = C2d(Storage(D2x(ASXB+200),4)) /* USER = Storage(D2x(ACEE+21),8) GROUP = Storage(D2x(ACEE+30),8) terminal = Storage(D2x(ACEE+64),8) Say 'The USERID in the ACEE is:' USER Say 'The GROUP in the ACEE is:' GROUP Say 'The TERMID in the ACEE is:' terminal
Regards, Leo -----Original Message----- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Charles Mills Sent: Tuesday, May 12, 2015 2:17 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: Where can a running TSO program get its "terminal name" The z/OS MVS Data Areas manuals are available -- do you need more details? Charles -----Original Message----- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Rupert Reynolds Sent: Tuesday, May 12, 2015 10:49 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: Where can a running TSO program get its "terminal name" Many years ago I had an MVS/ESA control block map from a course run by IMI. It got lost during a house move. ---------------------------------------------------------------------- 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