I must have got this from Kris indirectly:
/* This exec changes CMS' READY message by including userid info.
+-----------------------------------------------------------+
| format: | RDYMSG |
+-----------------------------------------------------------+
Adapted by: Kris Buelens IBM Belgium; BUELENSC at IECVM 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' |
+---------------------------------------------------------------------*/
'ID (LIFO'
pull myid . mynode .
rdymsg.1 = '& 3'
/*
rdymsg.2 = '8116 '||'1DE8'x||myid 'at' mynode||'1D60'x||'is ready'
*/
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'
Later, Dave H.
"Gentry, Stephen"
<[EMAIL PROTECTED]>
Sent by: The IBM z/VM Operating System
To
<IBMVM@LISTSERV.UARK.EDU>
IBMVM@LISTSERV.UARK.EDU
cc
09/26/2008 07:46 AM
Subject
Re:
Modifying the CMS Ready Message
Please respond to
The IBM z/VM Operating System
<IBMVM@LISTSERV.UARK.EDU>
I modify it to help keep track of what userid I'm logged on to.
Sometimes, I'll have 2(two) or more sessions going.
Steve
-----Original Message-----
From: The IBM z/VM Operating System [mailto:[EMAIL PROTECTED] On
Behalf Of Buettner, Wolfgang
Sent: Friday, September 26, 2008 4:16 AM
To: IBMVM@LISTSERV.UARK.EDU
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.
Disclaimer: Information in this message or an attachment may be government data
and thereby subject to the Minnesota Government Data Practices Act, Minnesota
Statutes, Chapter 13, may be subject to attorney-client or work product
privilege, may be confidential, privileged, proprietary, or otherwise
protected, and the unauthorized review, copying, retransmission, or other use
or disclosure of the information is strictly prohibited. If you are not the
intended recipient of this message, please immediately notify the sender of the
transmission error and then promptly delete this message from your computer
system.
