How about changing the CMS Ready message? This exec was posted to the list
a while back and simplifies the process:
/* This exec changes CMS' READY message by including userid info.
+-----------------------------------------------------------+
| format: | RDYMSG |
+-----------------------------------------------------------+
Adapted by: Kris Buelens IBM Belgium; BUELENSC at IECVM 19 Apr 1993
from: David Lybrand & Joachim Becela */
parse upper source . . myname mytype . syn .
address command
/*---------------------------------------------------------------------+
| Have a RDYMSG with a highlighted 'USERID at NODE' |
+---------------------------------------------------------------------*/
'ID (LIFO'
pull myid . mynode .
rdymsg.1 = '& 3'
/*
rdymsg.2 = '8116 '||'1DE8'x||myid 'at' mynode||'1D60'x||'is ready'
*/
rdymsg.2 = '8116 Ready'||'1DE8'x||myid 'at' mynode||'1D60'x
'RENAME DMSUME REPOS A RDYMSG REPOS A'
ren_rc = rc
if rc*(rc<>28) = 0 then do
'EXECIO 2 DISKW DMSUME REPOS A3 0 F 80 (FINIS STEM RDYMSG.'
'GENMSG DMSUME REPOS A3 DMS (NOLIST MARGIN 63'
'SET LANG (ADD DMS USER'
'ERASE DMSUME TEXT'
end
if ren_rc = 0 then 'RENAME RDYMSG REPOS A DMSUME REPOS A'
Regards,
Miguel Delapaz
z/VM Development
The IBM z/VM Operating System <[email protected]> wrote on 12/17/2010
10:42:15 AM:
> Greetings,
>
> I have a user who would like to have his userid displayed instead of
> the system identifier in the status area at the bottom of the
> screen. Is that possible?
>
> He has quite a few 3270 VM/CMS sessions open and would like to
> quickly identify who is logged on to what screen.
>
> Thanks,
>
> Mike Horlick
> CGI Montreal
