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=
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