Durch geschickte Definition mit Based-Pointern kannst du das auch hinkriegen:

D MYDS DS DIM(nnn)
D F1 10

D MyPtr s * inz(MyDS(0))
D MyArray DS based(MyPtr)
D FX 10 dim(nnn)
D FX1 10 overlay(FX:1)

Falls der inz-Ptr so nich geht, kannst du in auch per "eval MyPtr = %addr(Myds(0));" initialisieren.