Call the following with something like:
---<snip>---
'PIPE COMMAND IDENTIFY | VAR identify'
parse var identify id . node . . dateu . . datew
'EXEC REREADY' id node dateu
---<snip>---
/ * Prolog; See Epilog for additional information ********************
* Exec Name - REREADY EXEC *
* Unit Support - I.S. *
* Status - Version 1, Release 1.0 *
********************************************************************/
Address Command
Parse Arg new_ready
If new_ready = '' Then new_ready = lower(userid())
Else If Length(new_ready) > 40 Then Do
Say 'New Ready message being truncated to 40 characters.'
Parse Var new_ready 1 new_ready 41 .
End
repos_fn = time()
"PIPE",
"Literal 8116"||copies(" ",7)||new_ready,
"|Literal & 3",
"|Pad 80",
"|>" repos_fn "REPOS A3 F 80"
"GENMSG" repos_fn "REPOS A3 DMS ( NOLIST"
If rc = 0 Then Do
"RENAME" repos_fn "TEXT A DMSUME = A3"
"SET LANGUAGE ( ADD DMS USER"
End /* if */
Else Say 'GENMSG Error:' rc'.'
Exit
lower:
Procedure
locase = 'abcdefghijklmnopqrstuvwxyz'
hicase = 'ABCDEFGHIJKLMNOPQRSTUVWXYZ'
Return(translate(arg(1),locase,hicase))
/* Epilog ***********************************************************
* Function - Change CMS 'Ready' message to userid or character*
* string supplied with the command. *
* Component of - CMS at Hewitt Associates. *
* Command format- REREADY string|null *
* Called by - User or EXEC *
* Dependencies - CMS PIPELINES. *
* Program Lang. - CMS REXX and PIPEs *
* Date Written - 03/04/94 *
* Author - Terrence Ford <[EMAIL PROTECTED]> *
* Changed | By | Description of Change *
* --------+-----+------------------------------------------------- *
* 11/04/99 mrw - Update 'author' with proper information. *
* *
********************************************************************/
"VM/ESA and z/VM Discussions" <[email protected]> wrote on
11/03/2005 09:38:00 AM:
> Is there a command or EXEC that will allow you to modify the CMS ready
> message to include other things on it, like the userid or the current
date?
> For example, now the message displays "Ready; T=1.58/1.67 09:17:05" --
can
> I tailor it to display "<userid> Ready; T=1.58/1.67 <current date>
09:17:05"?
>
The information contained in this e-mail and any accompanying documents may
contain information that is confidential or otherwise protected from
disclosure. If you are not the intended recipient of this message, or if this
message has been addressed to you in error, please immediately alert the sender
by reply e-mail and then delete this message, including any attachments. Any
dissemination, distribution or other use of the contents of this message by
anyone other than the intended recipient is strictly prohibited.
