.; QMGINS.CMD - ; ; Install the Queue tasks .IF P1 NE "?" .GOTO BEGIN ; ; SYNTAX: ; @[1,2]QMGINS [dev] ; dev Device to spool to. LPP will be installed with this ; name. ; .EXIT ! after @[1,2]QMGINS ? .BEGIN: @/LB:USRCHK QMGINS/MCR PRIV .20: .ENABLE SUBSTITUTION .IF P1 = "" .ASKS P1 Device .IF P1 = "" .SETS P1 "TT0" .PARSE P1 ":" P1 X .IFNINS QMG... INS $QMG .IFNINS ...QUE INS $QMGCLI .IFNINS ...PRI INS $QMGCLI/TASK=...PRI/CKP=NO .IFNINS PRT... INS $QMGPRT .IFINS 'P1' .GOTO 30 SET /SLAVE='P1': .ASKN [::132.] N Width of 'P1': paper SET /BUF='P1':'N'. INS $LPP/TASK='P1' .30: SET /CLI=TI:'$CLI' .ASK [] C CONTINUE .IFT C .EXIT .STOP