In REXX, try:
term_name = sysvar(SYSLTERM)
Roger
On 2015-05-12 2:22 PM, Leonardo Vaz wrote:
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:[email protected]] On Behalf
Of Charles Mills
Sent: Tuesday, May 12, 2015 2:17 PM
To: [email protected]
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:[email protected]] On Behalf
Of Rupert Reynolds
Sent: Tuesday, May 12, 2015 10:49 AM
To: [email protected]
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
[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
--
Hava a great day!
Roger W. Suhr
Indianapolis, IN 46202
[email protected]
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
