.IF P1 NE "?" .GOTO BEGIN ; QMGSTO.CMD - Stop Q manager and remove despooler task ; ; SYNTAX: @LB:[1,2]QMGSTO [dev] ! stop Q on device dev ; @/LB:QMGSTO dev ! from LB:[1,2] files ; where dev is the spooled device and despooler task name. ; .EXIT ! after @[1,2]QMGSTO ? .BEGIN: .ENABLE SUBSTITUTION .IFNINS ...QUE ; QMG not installed .IFNINS ...QUE .STOP @/LB:USRCHK QMGSTO/MCR PRIV .IF P1 = "" .ASKS P1 Device .IF P1 = "" .SETS P1 "TT0" .PARSE P1 ":" P1 X QUE 'P1':/STOP QUE /STOP:QMG REMOVE 'P1' SET /NOSLAVE='P1': ; Reply "NO" if unsure of next question: PIP LB:[1,7]QUEUE.SYS;*/SD .IF $CLI NE "MCR" SET /CLI=TI:'$CLI' .EXIT