Sorry for the delay in my reply... busy day.
I tried Kris' version (perhaps modified) which highlights the userid and
node name, but found it distracting. It seemed the grab my already
limited attention from important messages on the screen.
So here's the version I've been using for years.
Mike Walter
Hewitt Associates
Any opinions expressed herein are mine alone and do not necessarily
represent the opinions or policies of Hewitt Associates.
/* 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. *
* *
********************************************************************/
"Buettner, Wolfgang" <[EMAIL PROTECTED]>
Sent by: "The IBM z/VM Operating System" <IBMVM@LISTSERV.UARK.EDU>
09/26/2008 03:16 AM
Please respond to
"The IBM z/VM Operating System" <IBMVM@LISTSERV.UARK.EDU>
To
IBMVM@LISTSERV.UARK.EDU
cc
Subject
Modifying the CMS Ready Message
Mike's respond to "DASD VOLUME SIZES" below pointed me to the obviously
modified Ready Messages.
What idea is behind and how is it implemented?
Thank you,
Wolfgang Buettner
Software AG - Sitz/Registered office: Uhlandstra?e 12, 64297 Darmstadt,
Germany, - Registergericht/Commercial register: Darmstadt HRB 1562 -
Vorstand/ Management Board: Karl-Heinz Streibich (Vorsitzender/Chairman),
David Broadbent, Mark Edwards, Dr. Peter Kurpick,Arnd Zinnhardt; -
Aufsichtsratsvorsitzender/ Chairman of the Supervisory Board: Frank F.
Beelitz - http://www.softwareag.com
-----Original Message-----
From: The IBM z/VM Operating System [mailto:[EMAIL PROTECTED] On
Behalf Of Mike Walter
Sent: Thursday, September 25, 2008 8:16 PM
To: ibmvm@listserv.uark.edu
Subject: Re: DASD VOLUME SIZES
You might want to put a 1 cylinder minidisk on the highest real disk
cylinder as a 'tail end charley' so that you know not to allocate past
that. For each read DASD, I create a userid such as (just added the
FFFF mdisk as an example):
USER -540RES- NOLOG
MDISK A00 3390 00000 00001 540RES R
MDISK F00 3390 00000 END 540RES R
MDISK FFFF 3390 10017 00001 540RES R
This allows authorized automation EXECs to link to the Allocation Bit
map (mdisk A00), the full volume (mdisk F00), and with the described
mdisk
FFFF: provides the 'tail end charley' as a clear indicator of the last
cylinder when looking at DISKMAP or DIRMAP output. How important is one
cylinder per DASD any more?
But .... to answer the question directly with an real-life example:
cp query dasd 540res
DASD 6A40 CP SYSTEM 540RES 0
M2WALTER HALINVA1; T=0.01/0.01 13:06:13
cp query dasd details 6a40 6A40 CUTYPE = 3990-E9, DEVTYPE = 3390-0C,
VOLSER = 540RES, CYLS = 10017
<---- note the total cylinders on this line
CACHE DETAILS: CACHE NVS CFW DFW PINNED CONCOPY
-SUBSYSTEM Y Y Y - N N
-DEVICE Y - - Y N N
DEVICE DETAILS: CCA = 40, DDC = --
DUPLEX DETAILS: --
M2WALTER HALINVA1; T=0.01/0.01 13:06:19
Mike Walter
Hewitt Associates
Any opinions expressed herein are mine alone and do not necessarily
represent the opinions or policies of Hewitt Associates.
"Howard Rifkind" <[EMAIL PROTECTED]>
Sent by: "The IBM z/VM Operating System" <IBMVM@LISTSERV.UARK.EDU>
09/25/2008 11:58 AM
Please respond to
"The IBM z/VM Operating System" <IBMVM@LISTSERV.UARK.EDU>
To
IBMVM@LISTSERV.UARK.EDU
cc
Subject
DASD VOLUME SIZES
What would be the quickest way to find out the size of a volume which
currently has minidisks allocated on it.
Cylinders?
_____________
LEGAL NOTICE
Unless expressly stated otherwise, this message is confidential and may
be privileged. It is intended for the addressee(s) only.
Access to this E-mail by anyone else is unauthorized.
If you are not an addressee, any disclosure or copying of the contents
of this E-mail or any action taken (or not taken) in reliance on it is
unauthorized and may be unlawful. If you are not an addressee, please
inform the sender immediately, then delete this message and empty from
your trash.
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. All messages sent to and from this e-mail address
may be monitored as permitted by applicable law and regulations to
ensure compliance with our internal policies and to protect our
business. E-mails are not secure and cannot be guaranteed to be error
free as they can be intercepted, amended, lost or destroyed, or contain
viruses. You are deemed to have accepted these risks if you communicate
with us by e-mail.
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. All messages
sent to and from this e-mail address may be monitored as permitted by
applicable law and regulations to ensure compliance with our internal policies
and to protect our business. E-mails are not secure and cannot be guaranteed to
be error free as they can be intercepted, amended, lost or destroyed, or
contain viruses. You are deemed to have accepted these risks if you communicate
with us by e-mail.
