Gehen tut sowas schon, auch in COBOL, da man nicht alles redefinieren muss.
RPGLE:

dcl-ds DDA_SDADIUB qualified template;
filler char(1);
DDAPFMA zoned(3, 0);
endds;

dcl-ds DDA_SEQUENZ_AREA quliefied template;
DDA_SDADIUB likeds(DDA_SDADIUB);
endds;

Nun, den DDA-REC spare ichmir auf.

dcl-ds USER_AREA qualified char(32000);
ABC_USER_AREA likeds(DDA_SEQUENZ_AREA);
endds;

Die Ansprache der Felder ist dann etwas komplizierter:
USER_AREA.ABC_USER_AREA.DDA_SDADIUB.DDAPFMA

Nun kann man sich das aber auch etwas einfacher machen (alte Syntax):
d USER_AREA ds
d AreaData 32000

d UserAreaPtr s * inz(USER_AREA)

d DDA_SDADIUB ds qualified based(UserAreaPtr)
d filler 1
d DDAPFMA S 3 0