.; .; Command file to compile, assemble, and taskbuild the .; QMT task. .; .ENABLE SUBSTITUTION .ASK ICMP Compile QMT .ASK IASM Assemble QMTPRS .ASK ILBD Taskbuild .ASK ILST Listings or Maps .; .; compile .; .IFF ICMP .GOTO ASSM .; .ASKS [5.:9.:"[7,5]"] UIC1 Enter UIC of file QUEUEIDS.DAT (form: [ggg,mmm]) .ASKS [5.:9.:UIC1] UIC2 Enter UIC of file MAQUEUE.DAT (form: [ggg,mmm]) .OPEN IFILE.TXT .ENABLE DATA CHARACTER*25 IFILE DATA IFILE /''QU0:'UIC1'QUEUEIDS.DAT''/ .DISABLE DATA .CLOSE IFILE.TXT .; .OPEN QFILE.TXT .ENABLE DATA CHARACTER*24 QFILE DATA QFILE /''QU0:'UIC2'MAQUEUE.DAT''/ .DISABLE DATA .CLOSE QFILE.TXT .; .IFT ILST FTN QMT,QMT/-SP=QMT .IFF ILST FTN QMT=QMT .; .; assemble .; .ASSM: .IFF IASM .GOTO TKB .IFT ILST MAC QMTPRS,QMTPRS/-SP=QMTPRS .IFF ILST MAC QMTPRS=QMTPRS .IFT ILST MAC NSET,NSET/-SP=NSET .IFF ILST MAC NSET=NSET .IFT ILST MAC SETBIT,SETBIT/-SP=SETBIT .IFF ILST MAC SETBIT=SETBIT .; .; taskbuild .; .TKB: .IFF ILBD .EXIT .; .SETS MAP "" .IFT ILST .SETS MAP ",QMT/-SP" .OPEN QMTBLD.CMD .ENABLE DATA QMT/FP/ID'MAP'= QMT, QMTPRS, NSET, SETBIT, LB:QUEUE.OLB/LB, LB:[1,1]RMSLIB/LB:R0EXSY:R0AUTS:R0IMPA, LB:[1,1]F4POTSRMS/LB / MAXBUF=1024 ACTFIL=5 UNITS=6 STACK=200 ASG=SY:1 ASG=SY:2 ASG=TI:3 ASG=SY:4 ASG=TI:5 ASG=ZQ:6 TASK=...QMT RESSUP=LB:[3,54]RMSRES/SV:0 // .DISABLE DATA .CLOSE QMTBLD.CMD .CLOSE QMT.ODL .; TKB @QMTBLD.CMD .; PIP QMTBLD.CMD;*,IFILE.TXT;*,QFILE.TXT;*/DE/NM PIP QMT.*/PU REM ...QMT INS QMT