Sounds strange but force will do it (and this is somewhere documented)
RESTART/STOP:
1) FORCE AXR,ARM
2) S AXRPSTRT,AXR=NN 00=DEFAULT (99 = emergency)
STOP : F AXR,SRXSTOP SYS.
stop rexec srxstop
/* REXX */
ARG SYSTEM
RC = AXRCMD('RO 'SYSTEM',FORCE AXR,ARM','OUTPUTVAR.',20)
CALL AXRWTO 'SRXSTOP RC = ' RC
DO I = 1 TO OUTPUTVAR.0
SAY OUTPUTVAR.I
END
CALL AXRWTO 'SYSREXX on ' SYSTEM ' stopped'
Hope that helps
Peter
--
RSC Commercial Services OHG
Wanheimer Strasse 70, D-40468 Duesseldorf
Registergericht: Duesseldorf, HRA 12655
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
