Das funktioniert nur in ILERPG relativ einfach:

D MYDS DS DIM(10) QUALIFIED
D FELD1 2
D FELD2 5 DIM(10)

Referenziert dann per
MYDS(I1).FELD2(I2)