Soweit ich weiß:

d MyTab1 ds qualified
d Feld1 10 dim(10)

d MyTab2 ds dim(10) qualified
d MyDim2 likeds(MyTab1)

c eval MyTab2(I1).MyDim2.Feld1(I2) = 'XXX'