.ENABLE SUBSTITUTION
.SETS UIC <UIC>
PIP 'UIC'DYCOPY.OBJ;*/DE/NM,DYCOPY.TSK;*,DYCOPY.LST;*,DYCOPYBLD.CMD;*
MAC 'UIC'DYCOPY,DYCOPY=[11,10]RSXMC/PA:1,'UIC'DYCOPYPRE/PA:1,DYCOPY
.OPEN DYCOPYBLD.CMD
.ENABLE DATA
'UIC'DYCOPY/-FP/CP='UIC'DYCOPY
/
PAR=GEN
STACK=20
TASK=DYCOPY
//
.DISABLE DATA
.CLOSE
TKB @DYCOPYBLD