I got my MOD's from Mike and/or Kris a long time ago. - VM Workshop or IBM download page ?
REREADY exec OR RDYMSG exec called from your Profile EXEC. I use 2 versions /* Address Command */ 'CP SET EMSG OFF' 'CP SET IMSG OFF' 'SYNONYM SYN' 'CP TERMINAL MODE VM' 'CP SPOOL CONSOLE * START' 'CP SPOOL PRT TO RSCS' 'CP TAG DEV PRT NJP012A' 'CP SET RUN ON' 'CP SET PF11 RETRIEVE FORWARD' 'CP SET PF12 RETRIEVE BACKWARD' 'CP SET PF23 RETRIEVE FORWARD' 'CP SET PF24 RETRIEVE BACKWARD' 'CP LINK TCPMAINT 198 198 RR' 'CP LINK ESAMON 198 600 RR' 'ACC 198 B' 'ACC 600 C' 'CP SET EMSG ON' 'CP SET IMSG ON' /* EXEC TESTCPIP */ 'EXEC REREADY Munson at zVM3' cp query logmsg exit and /* PROFILE EXEC */ 'SET RDYMSG LMSG SRC' 'CP SPOOL CONSOLE START CLASS A CONT' 'TERM MORE 15 3' 'SET AUTOREAD OFF' 'CP SET ACNT OFF' 'CP SET DATEF FULL' 'CP SET EMSG ON' 'CP SET SMSG ON' 'CP SET RUN ON' 'CP SET PF1 imm vmspool qpcb' 'CP SET PF2 imm vmback99 q req' 'CP SET PF3 imm vmtape list scratch (nodetail' 'CP SET PF4 imm q tape' 'CP SET PF16 substitu imm vmtrack &1' 'CP SET PF5 imm vmtape99 q tape' 'CP SET PF6 imm smsg vmhidro q q' 'CP SET PF7 imm vm admin config' 'cp SET PF8 substitu vm map &1' 'CP SET PF20 substitu imm linkit &1' 'cp SET PF9 substitu imm vm edit &1' 'cp SET PF10 substitu imm vm manage &1' 'cp SET PF11 substitu imm vmtape list &1' 'CP SET PF12 RETRIEVE' 'CP SET PF24 RETRIEVE' 'CP SET RETRIEVE max 100' 'CP SET RETRIEVE 25' 'acc 193 c' 'acc 194 B' 'acc 19D X' 'EXEC NONEWS' 'EXEC DTRIPF' synonym otsmuns synonym parse value diag(08,'CP Q USERID') with self '15'x 'EXEC REREADY' /* 'EXEC RDYMSG' */ 'query logmsg' 'CP MSG * TEST TO SEE IF IM RUNNING DISCONN' if RC = 57 then do 'NUCXLOAD DMSSEGLP DMSSEGLP ( PERM SYSTEM' 'NUCXLOAD SEGMENT DMSSEGLP ( PERM SYSTEM' 'SEGMENT ( ) OTSKREU' exit end else exit as you can see I have also used the RDYMSG exec but now use the REREADY exec Bill Munson Brown Brothers Harriman Sr. z/VM Systems Programmer 201-418-7588 President MVMUA http://www2.marist.edu/~mvmua/ "Buettner, Wolfgang" <[EMAIL PROTECTED]> Sent by: The IBM z/VM Operating System <IBMVM@LISTSERV.UARK.EDU> 09/26/2008 04: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. *************************** IMPORTANT NOTE***************************** The opinions expressed in this message and/or any attachments are those of the author and not necessarily those of Brown Brothers Harriman & Co., its subsidiaries and affiliates ("BBH"). There is no guarantee that this message is either private or confidential, and it may have been altered by unauthorized sources without your or our knowledge. Nothing in the message is capable or intended to create any legally binding obligations on either party and it is not intended to provide legal advice. BBH accepts no responsibility for loss or damage from its use, including damage from virus. ************************************************************************
