Storing into CP? What does this gain that SEND RACFVM SETRACF INACTIVE doesn't?
Issuer will need class C or E.
David
-----Original Message-----
From: The IBM z/VM Operating System on behalf of Rich Greenberg
Sent: Thu 3/22/2007 1:10 PM
To: IBMVM@LISTSERV.UARK.EDU
Subject: Re: [IBMVM] Building NonRACF CP Module
 
Here is an exec that can disable RACF:

/* Disable RACF.

   Use with CAUTION!
*/

false = (1=0)
true  = (1=1)
Address COMMAND
Trace O

/*
  See if RACFVM is logged on.
  Procede ONLY if its not.
*/
'CP QUERY USER RACFVM'
if rc = 0
   then do
        say 'RACFVM is logged on.'
        say 'Enter "YES" to continue,  anything else to abort.'
        parse upper external qq
        if qq ^= 'YES'
           then exit 8
        end

'PIPE CP LOCATE HCPRWA',
   '| Specs w3 1',
   '| Specs /STORE H/ 1 w1 n /0/ nw',
   '| CP'

if rc = 0
   then say 'RACF disabled.'
   else say 'Disable of RACF failed.

exit rc


-- 
Rich Greenberg  N Ft Myers, FL, USA richgr atsign panix.com  + 1 239 543 1353
Eastern time.  N6LRT  I speak for myself & my dogs only.    VM'er since CP-67
Canines:Val, Red, Shasta & Casey (RIP), Red & Zero, Siberians  Owner:Chinook-L
Retired at the beach                                     Asst Owner:Sibernet-L

Reply via email to