.IF P1 NE "?" .GOTO BEGIN ; QMGSTA.CMD - Start Q manager, installing any required tasks. ; ; SYNTAX: @LB:[1,2]QMGSTA [dev] ! start Q on device dev ; @/LB:QMGSTA dev ! from LB:[1,2] files ; .EXIT ! after "@[1,2]QMGSTA ?" .BEGIN: .ENABLE SUBSTITUTION .IF P1 = "" .ASKS P1 Device .IF P1 = "" .SETS P1 "TT0" .PARSE P1 ":" P1 X ! discard any ":" at end @/LB:QMGINS 'P1' @/LB:USRCHK QMGSTA/MCR PRIV ; ; Start the Queue Manager .TESTFILE LB:[0,0]001007.DIR ! make sure LB:[1,7] exists .IF NE 1 UFD LB:[1,7] QUE /START:QMG ; QUEUE 'P1': QUE 'P1':/CR/NM QUE 'P1':/SPOOL/FLAG:0 QUE 'P1':/ASSIGN:PRINT .IF $CLI NE "MCR" SET /CLI=TI:'$CLI'