We run something similar, but only in AUTOLOG1 or by special request. We look through the complete list of DASD addresses, looking for CP Owned and CP System devices. Anything that doesn't match either of these, and isn't already offline, is varied offline. Counts are produced at the end.
With a parm of "ALLOC", a $ALLOC$ directory entry is created for all the CP volumes. Exec is below signature. -- Robert P. Nix Mayo Foundation .~. RO-OE-5-55 200 First Street SW /V\ 507-284-0844 Rochester, MN 55905 /( )\ ----- ^^-^^ "In theory, theory and practice are the same, but in practice, theory and practice are different." /* */ Arg alloc . If alloc = "ALLOC" then do alloc = 1 direct.1 = "USER $ALLOC$ NOLOG" direct.0 = 1 end else alloc = 0 'Pipe CP Q DASD ALL | Split at string /,/ | Strip | Stem dasd.' offline = 0 online = 0 pavalias = 0 error = 0 cpdisk = 0 Do i = 1 to dasd.0 Select When word(dasd.i, 2) = "free" then iterate i When words(dasd.i) > 3 then do 'Pipe CP Q DASD DETAILS' word(dasd.i, 2) '| Locate /PAV DETAILS:/' , '| Specs w3 1 | Var pav' If pav = 'BASE' then do cpdisk = cpdisk + 1 if alloc then do stmt = " MDISK" word(dasd.i, 2) "3390 000 001" word(dasd.i, 5) "R" Call dir(stmt) end end else pavalias = pavalias + 1 end When word(dasd.i, 3) = 'OFFLINE' then offline = offline + 1 otherwise 'Pipe CP VARY OFF' word(dasd.i, 2) '| hole' If rc <> 0 then error = error + 1 online = online + 1 end end If alloc then do 'Pipe Stem direct. | > $ALLOC$ NEWDIRECT A' Say "New $ALLOC$ DIRECT created." Say " " end Say error 'errors' Say cpdisk 'CP OWNED or SYSTEM disks skipped' Say pavalias 'PAV Aliases skipped' Say offline 'found already offline' Say online 'varied offline' Exit 0 dir: Procedure expose direct. Arg stmt i = direct.0 + 1 direct.i = stmt direct.0 = i return On 2/27/08 11:00 AM, "Mark Wheeler" <[EMAIL PROTECTED]> wrote: > Marcy, > > I have an exec which runs in AUTOLOG1 at IPL, plus every half-hour (in case > something changes while you're running), to vary off all but my primary > DASD volumes. Looks like: > > VM_DASD_addrs = '1000-10FF 1100-11FF 1910-1917' > > 'PIPE(name DASDOFF endchar ?)|', > 'CP Q DASD ALL |', > 'SPLIT , |', > 'STRIP |', > 'PICK W3 /== /OFFLINE/ |', > 'PICK W3 /== /SUBCHOFF/ |', > 'L: NOT LOOKUP 6.4 6.4 |', > 'CONS |', > 'SPECS /VARY OFF/ 1 6.4 NW |', > 'CP |', > 'CONS', > '?', > 'CP Q' VM_DASD_addrs '|', > 'SPLIT , |', > 'STRIP |', > 'L:' > > Obviously, if running on the secondaries, this would be disabled. > > Best regards, > Mark > > > > Marcy Cortes > <[EMAIL PROTECTED] > ellsfargo.com> To > Sent by: The IBM [email protected] > z/VM Operating cc > System > <[EMAIL PROTECTED] Subject > ARK.EDU> PPRC > > > 02/27/2008 10:42 > AM > > > Please respond to > The IBM z/VM > Operating System > <[EMAIL PROTECTED] > ARK.EDU> > > > > > > > Question for those of you using PPRC. We're about to jump in. > Do you need to keep offline in system config the secondaries? And have > 2 system configs in case you need to run off the secondaries? > > > Marcy Cortes > > "This message may contain confidential and/or privileged information. If > you are not the addressee or authorized to receive this for the > addressee, you must not use, copy, disclose, or take any action based on > this message or any information herein. If you have received this > message in error, please advise the sender immediately by reply e-mail > and delete this message. Thank you for your cooperation."
