Also the GTTERM macro. http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/IKJ4B790/7.4
Bill On Tue, 12 May 2015 11:29:55 -0700, Charles Mills <[email protected]> wrote: >Great! Thanks. (Also Thanks, Tony.) > >Charles > >-----Original Message----- >From: IBM Mainframe Discussion List [mailto:[email protected]] On >Behalf Of Leonardo Vaz >Sent: Tuesday, May 12, 2015 11:23 AM >To: [email protected] >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 [email protected] with the message: INFO IBM-MAIN
