Great! Thanks. (Also Thanks, Tony.) Charles
-----Original Message----- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Leonardo Vaz Sent: Tuesday, May 12, 2015 11:23 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: Where can a running TSO program get its "terminal name" 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 ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
