PARM MAP
LINK
CONNY
DIRECTY
.END
thasha
LINK
XOPY
DIAGY
SSY
.END
thashb
LINK
thasha
thashb
.END
thashc
DIRFIX thashc,OBJ,DIA,EMAS00,X380
destroy thasha,thashb,thashc
parm nocheck,noarray