;----------------------------------------------------------------------;
;                                                                      ;
;       J  O  B  .  C  M  D                                            ;
;                                                                      ;
;----------------------------------------------------------------------;
;       ASSEMBLE AND TASK BUILD THE BATCH SUBMISSION FACILITY          ;
;----------------------------------------------------------------------;
        .ENABLE SUBSTITUTION
        .ASK LIST Print Listings
        .SETS UIC <UIC>
        MAC JOB,JOB=[1,1]EXEMC/ML,[11,10]RSXMC,'UIC'JOB
        .IFT LIST .XQT NFT GPX::LP:=JOB.LST
        TKB @JOB.TKB
        SET /UIC='<SYSUIC>'
        PIP /NV='UIC'JOB.TSK
        .IFINS JOB REM JOB
        PIP JOB.TSK/PU
        SET /UIC='UIC'
        PIP JOB.LST/PU,JOB.OBJ,JOB.MAP,JOB.TSK
        INS $JOB
        .IFT LIST .WAIT NFT
        .IFT LIST .XQT NFT GPX::LP:=JOB.MAP