D DSArray DS dim(100)
D MyFld 10A

d MyPtr s * inz(DSArray(1))
D DS based(MyPtr)
D DS_DATEN ascend dim(99)