;
;	QUE MANAGER STOP AND STARTUP FILE
;
.ENABLE SUBSTITUTION
ASN =LP:
QUE /STOP:QMG
.IFACT LP0 ABO LP0
.IFACT LP1 ABO LP1
.IFACT LP2 ABO LP2
.IFACT QMG... ABO QMG...
.IFINS QMG... REM QMG...
.IFACT ...QUE ABO ...QUE
.IFINS ...QUE REM ...QUE
.IFACT ...PRI ABO ...PRI
.IFINS ...PRI REM ...PRI
.IFACT PRT... ABO PRT...
.IFINS PRT... REM PRT...
.IFINS LP0 REM LP0
.IFINS LP1 REM LP1
.IFINS LP2 REM LP2
INS $PRT
.LPAGN:
.ASKS LP ENTER LP UNIT NUMBER (<CR> FOR NO QMG)
.TEST LP
.IF <STRLEN> LE 0 .EXIT
.IF LP NE "0" .AND .IF LP NE "1" .AND .IF LP NE "2" .GOTO LPAGN
.IFACT PRT... ABO PRT...
.IFINS PRT... REM PRT...
INS $QMG /PRI=70
INS $QMGCLI/TASK=...QUE
INS $QMGCLI/TASK=...PRI
INS $QMGPRT
QUE /START:QMG
.LPAGN3:
DEA LP'LP':
INS $LPP/TASK=LP'LP'
QUE LP'LP':/CR/NM
QUE LP'LP':/SPOOL/FLAG:1/FORM:0
QUE LP'LP': /ASSIGN:PRINT
.LPAGN2:
.ASKS LP ENTER ANOTHER LP UNIT NUMBER (<CR> FOR NO MORE)
.TEST LP
.IF <STRLEN> LE 0 .EXIT
.IF LP NE "0" .AND .IF LP NE "1" .AND .IF LP NE "2" .GOTO LPAGN2
.GOTO LPAGN3