.ENABLE SUBSTITUTION
.SETS $U "'<UIC>'"
.SETS $D "SY:"
.SETS DA ""
.IF P1 = "DEBUG" .SETS DA "/DA"
.IFNINS ...MAC INS $BIGMAC
.IFNINS ...TKB INS $BIGTKB
.IFNINS ...SRD INS $SRD
.TESTFILE BTQ.MAC
.IF <FILERR> = 1 .GOTO 10
.5: .ASKS $D ON WHICH DISK IS THE SOURCE (DDn:)
.TESTFILE '$D'BTQ.MAC
.IF <FILERR> = 1 .GOTO 10
.SETS $D "'$D':"
.TESTFILE '$D'BTQ.MAC
.IF <FILERR> <> 1 .GOTO 5
.10:
.XQT MAC '$D'BTQ,BTQ/-SP=LB:[1,1]EXEMC/ML,[11,10]RSXMC/PA:1,'$D''$U'BTQ
.OPEN '$D'BTQ.BLD
.DATA ;	BTQ.BLD
.DATA ;
.DATA ;	BUILD MCR TASK ...BTQ BATCH QUEUE LIST PROCESSOR
.DATA ;
.DATA '$D'BTQ/CP/PR/MM'DA',BTQ/-SP=BTQ,[1,1]EXELIB/LB
.DATA /
.DATA ASG=TI:1
.DATA UNITS=2
.DATA STACK=55
.DATA TASK=...BTQ
.DATA PRI=55
.DATA //
.CLOSE
.WAIT MAC
TKB @'$D'BTQ.BLD
SRD '$D'BTQ.BLD/DE
SRD '$D'BTQ/PU
