To personalize 3270 sessions:
- I use CMMOUSE (a "productivity aid" delivered with PCOMM) with a
CMMOUSE-REXX script to logon. Part of the script is setting the 3270 window
title to the nodeid and userid.
- In CMS, my PROFILE EXEC runs the RDYMSG EXEC, that changes the CMS
Ready prompt to:
Ready KRIS at VMKBFF01 ; T=0.03/0.04 09:20:55
The RDYMSG EXEC is very simple:
--
Kris Buelens,
IBM Belgium, VM customer support
----------------
RDYMSG EXEC E1 V 130 Trunc=130 Size=26 Line=1 Col=1 Alt=0
====>
* * * Top of File * * *
/* This exec changes CMS' READY message by including userid info.
+-----------------------------------------------------------+
! format: ! RDYMSG !
+-----------------------------------------------------------+
Adapted by: Kris Buelens IBM Belgium; BUELENSC at BEVM 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' !
+---------------------------------------------------------------------*/
'IDENTIFY (LIFO'
pull myid . mynode .
rdymsg.1 = '& 3'
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'
* * * End of File * * *
