Yes, that's correct. Sorry for the confusion. sysvar(SYSTERMID) gives
the VTAM terminal ID.
The point i, there is no need to chase control block chains.
Roger
On 2015-05-12 3:30 PM, Gross, Randall [PRI-1PP] wrote:
Don't you mean sysvar(systermid)?
I don't think he's looking for the number of lines in the screen....
-----Original Message-----
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf
Of Roger Suhr (gmail)
Sent: Tuesday, May 12, 2015 3:01 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Where can a running TSO program get its "terminal name"
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: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
--
Hava a great day!
Roger W. Suhr
Indianapolis, IN 46202
suhr...@gmail.com
----------------------------------------------------------------------
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
--
Hava a great day!
Roger W. Suhr
Indianapolis, IN 46202
suhr...@gmail.com
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
