I've got two things

   - CMMOUSE (an as-is tool, part of Pcomm).  I used it to logon and setthe
   window's title bar to the VM nodeid and userid.  I created REXX scripts to
   automated the logon, worked 100% fine in the VTAM days, now with TCP/IP a
   bit less.  I can shared these scripts, but you surely have to adapt them.
   - An RDYMSG EXEC that changes the CMS Ready message nbr.  No need to set
   yourself under a WAKEUP sheel like shown above:

/*---------------------------------------------------------------------+
| Have a RDYMSG with a highlighted 'USERID at NODE'                    |
+---------------------------------------------------------------------*/
address command
'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'

2010/12/17 Jim Bohnsack <jab...@cornell.edu>

> I don't see how you could do that without some major CP mods.  What gets
> displayed on the screen is controlled by LOGO CONFIG from the system parm
> disk.  What goes on the screen is there before a user logs onto the system.
>  I do the type of thing that I think your user is requesting in the emulator
> configurator files that are on my PC and are tied to the emulator I use, in
> my case, VISTA from Tom Brennan.  I suspect that most or all of the
> available emulators give you some kind of option such as that.  I am
> generally logged onto 2 lpars, with each showing my personal userid, the
> MAINT id, and the Performance Toolkit id, PERFSVM.  In addition I usually
> have a screen up for a 2nd level development id.  On each screen, I display
> the system that the display is on as well as the userid.  The important
> thing, however, is that it's controlled by the emulator and not CP.  I think
> in the case of VISTA, it has to be on the top line of the screen.
>
> Jim
>
> On 12/17/2010 1:42 PM, Horlick, Michael wrote:
>
>> ------_=_NextPart_001_01CB9E1A.9624CEA1
>> Content-Type: text/plain; charset="iso-8859-1"
>> Content-Transfer-Encoding: quoted-printable
>>
>> Greetings,
>> =20
>>
>> 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?
>> =20
>>
>> He has quite a few 3270 VM/CMS sessions open and would like to quickly =
>> identify who is logged on to what screen.
>> =20
>> Thanks,
>> =20
>> Mike Horlick
>> CGI Montreal
>>
>> ------_=_NextPart_001_01CB9E1A.9624CEA1
>> Content-Type: text/html; charset="iso-8859-1"
>> Content-Transfer-Encoding: quoted-printable
>>
>> <HTML dir=3Dltr><HEAD>=0A=
>> <META http-equiv=3DContent-Type content=3D"text/html;
>> charset=3Dunicode">=0A=
>> <META content=3D"MSHTML 6.00.6000.17092" name=3DGENERATOR></HEAD>=0A=
>> <BODY>=0A=
>> <DIV><FONT face=3DArial color=3D#000000
>> size=3D2>Greetings,</FONT></DIV>=0A=
>> <DIV><FONT face=3DArial size=3D2></FONT>&nbsp;</DIV>=0A=
>> <DIV><FONT face=3DArial size=3D2>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?</FONT></DIV>=0A=
>> <DIV><FONT face=3DArial size=3D2></FONT>&nbsp;</DIV>=0A=
>> <DIV><FONT face=3DArial size=3D2>He has quite a few 3270 VM/CMS sessions =
>>
>> open and would like to quickly identify who is logged on to what =
>> screen.</FONT></DIV>=0A=
>> <DIV><FONT face=3DArial size=3D2></FONT>&nbsp;</DIV>=0A=
>> <DIV><FONT face=3DArial size=3D2>Thanks,</FONT></DIV>=0A=
>> <DIV><FONT face=3DArial size=3D2></FONT>&nbsp;</DIV>=0A=
>> <DIV><FONT face=3DArial size=3D2>Mike Horlick</FONT></DIV>=0A=
>> <DIV><FONT face=3DArial size=3D2>CGI Montreal</FONT></DIV></BODY></HTML>
>> ------_=_NextPart_001_01CB9E1A.9624CEA1--
>>
>
> --
> James Bohnsack
> (972) 596-6377 home/office
> (972) 342-5823 cell
>



-- 
Kris Buelens,
IBM Belgium, VM customer support

Reply via email to