By the way, if you use the SYNCH argument on the XAUTOLOG command, you won't have to loop trying the SET SECUSER command. The help for the XAUTOLOG command says about SYNCH: "VM returns control to the issuer of the XAUTOLOG command when the target user ID is logged on and IPL command is validated." So one the XAUTOLOG command ends, you'll be able to issue a SET SECUSER. I frequently just issue the command: XAUTOLOG LINUX SYNCH#SET SECUSER LINUX *
On 12/5/05, Rich Greenberg <[EMAIL PROTECTED]> wrote: > } Rich Smrcina wrote: > } > } >Somehow I have DIRMAINT in a state where it isn't accepting work. I > } >get this message: > } > > } >DVHXMT1192E The DIRMAINT service machine is not accepting work. > > Isn't there a DIRM DISABLE or similar command that may have been issued > in error? Try DIRM ENABLE or whatever the command is. > > Another thing you can do is to shut and log off DIRMAINT, then make > yourself a secuser and see if there are any errors showing on startup. > > Here is ALSU exec, which is very handy for such diagnoseing: > You may want to change the SET PF at the end. > > /* > ALSU > Autolog and secondary user. > */ > trace 'O' > address 'COMMAND' > > /* > Get my arg, userid & XAUTOLOG options. > */ > parse upper arg user x_opts > if user = '' > then exit 4 > > /* > XAUTOLOG the user. > */ > 'CP XAUTOLOG' user x_opts > if rc ^= 0 > then exit rc > > /* > Set me as SECUSER. > */ > do 250 > 'CP SET SECUSER' user userid() > select > when rc = 0 > then leave > when rc = 3 > then do > say 'You do not have the correct privs to do SET SECUSER.' > exit 3 > end > otherwise > nop > end > 'PIPE StrLiteral /+0.10/ | Delay' > end > > 'CP SET PF23 IMM CP SET SECUSER' user 'OFF' > say 'PF 23 will reset the SECUSER for' user'.' > exit > > > -- > Rich Greenberg N6LRT Marietta, GA, USA richgr atsign panix.com + 1 770 321 > 6507 > Eastern time zone. I speak for myself & my dogs only. VM'er since CP-67 > Canines:Val, Red & Shasta (RIP),Red, husky Owner:Chinook-L > Atlanta Siberian Husky Rescue. www.panix.com/~richgr/ Asst Owner:Sibernet-L > -- Bruce Hayden IBM Global Services zSeries Linux Endicott, NY
