Da gibts mehrere:

D DSTABDAT DS DIM(99) qualified
D DSSTK LIKE(EKSTK) DIM(99)

Der Zugriff erfolgt über "dsstabdat(i1).dsstk(I2)"

D DSTABDAT DS OCCURS(99)
D DSSTK LIKE(EKSTK) DIM(99)

Der Zugriff erfolgt über

occur dsstabdat i1
dsstk(I2)