;----------------------------------------------------------------------;
;                                                                      ;
;       T  N  M  .  C  M  D                                            ;
;                                                                      ;
;----------------------------------------------------------------------;
;       ASSEMBLE AND TASK BUILD THE TASK NAME CHANGE UTILITY           ;
;----------------------------------------------------------------------;
        .ENABLE SUBSTITUTION
        .ASK LIST Print Listings
        .SETS UIC <UIC>
        MAC TNM,TNM/-SP=[1,1]EXEMC/ML,[11,10]RSXMC,'UIC'TNM
        .IFT LIST .XQT NFT PRT::LP:=TNM.LST
        TKB @TNM.TKB
        SET /UIC='<SYSUIC>'
        PIP /NV='UIC'TNM.TSK
        .IFINS TNM REM TNM
        PIP TNM.TSK/PU
        SET /UIC='UIC'
        PIP TNM.LST/PU,TNM.OBJ,TNM.MAP,TNM.TSK
        INS $TNM
        .IFT LIST .WAIT NFT
        .IFT LIST .XQT NFT PRT::LP:=TNM.MAP