.; .; Command file to assemble and task build the .; the Manufactoring Automation queue .; ACP. .; .ASK ASM Do you want to assemble QUEACP .IFT ASM .ASK LST Do you want a listing .ASK BLD Do you want to task build the ACP .IFT BLD .ASK ODTDEB Do you want to build task with ODT .; .; ASSEMBLY .; .IFF ASM .GOTO 100 .; .ENABLE SUBSTITUTION .; .SETF LOG .ASK [] DEB Do you want debug messages to be logged .ASK [] LOG Do you want messages sent to Program ''QUELOG'' .SETS DEF .ASKS [5.:9.:"'DEF'"] UIC Enter Directory of file MAQUEUE.DAT (form: [ggg,mmm] or [xxxxx]) .25: .; .OPEN QUEACP1.MAC .IFT DEB .DATA DEBUG=1 ; IF DEFINED, CAUSES DEBUG MESSAGES .IFF DEB .DATA ;DEBUG=1 ; IF DEFINED, CAUSES DEBUG MESSAGES .DATA ; TO BE LOGGED .IFT LOG .DATA LOGPGM=1 ; IF DEFINED, CAUSES MESSAGES TO BE .IFF LOG .DATA ;LOGPGM=1 ; IF DEFINED, CAUSES DEBUG MESSAGES .DATA ; TO BE SENT TO LOG TASK ''QUELOG'' .DATA UIC: .DATA .ASCII /'UIC'/ ; file directory .50: .DATA UICL=.-UIC .CLOSE QUEACP1.MAC .; .IFF LST .GOTO 10 MAC QUEACP,QUEACP/-SP=[1,1]EXEMC.MLB/ML,'DEF'QUEUE.MLB/ML,- [11,10]RSXMC.MAC,'DEF'QUEACP .GOTO 20 .10: MAC QUEACP=[1,1]EXEMC.MLB/ML,'DEF'QUEUE.MLB/ML,- [11,10]RSXMC,'DEF'QUEACP .20: .IFF BLD .EXIT .; .; TASK BUILD .; .100: .OPEN QUEACPBLD.CMD .IFT ODTDEB .DATA QUEACP/AC/ID/DA,QUEACP/-SP=QUEACP,[1,1]EXELIB/LB,[1,54]RSX11M.STB/SS .IFF ODTDEB .DATA QUEACP/AC/ID,QUEACP/-SP=QUEACP,[1,1]EXELIB/LB,[1,54]RSX11M.STB/SS .ENABLE DATA / WNDWS=1 ASG=TI:1 ASG=SY:2 ASG=SY:3 ASG=SY:4 SUPLIB=FCSFSL:SV // .DISABLE DATA .CLOSE QUEACPBLD.CMD .; TKB @QUEACPBLD.CMD .; .; CLEAN UP .; PIP QUEACPBLD.CMD;*,QUEACP1.MAC;*/DE/NM PIP QUEACP.*/PU