Nicht mit OCCURS!

D MYDS DS DIM(10) qualified <= erforderlich !
D MYFLD 10 DIM(10)

Zugriff ist dann
myds(1).myfld(1)

Mehr als 2 Dimensionen sind dann auch mit LIKEDS machbar.