On: Thu, Mar 22, 2007 at 01:10:57PM -0400,Rich Greenberg Wrote: } Here is an exec that can disable RACF:
I should have clarified why and when you would use this exec. Why: The RACF server can't be brought up or its database is missing or ..... and you need to get some functionally up and running. Once the bits in HCPRWA are cleared, its as if there is no RACF and the usual CP controls take over. When: As soon as OPERATOR is up and running after an IPL. Run it on OPERATOR of course, no other users can log on. } /* 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 -- 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
