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:[email protected]] On Behalf Of Roger Suhr (gmail) Sent: Tuesday, May 12, 2015 3:01 PM To: [email protected] 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:[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 ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
