Thanks Kris, just what the doctor ordered! ian ...
------ Original Message ------ Received: Fri, 28 Sep 2007 08:35:01 AM BST From: Kris Buelens <[EMAIL PROTECTED]> To: [email protected] Subject: Re: Code after RUNNING status? > 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 * * * >
