Man kann hier auch mit Pointer-DS arbeiten wenn die Adresse sich mal ändern sollte:

D MyGrpPtr * inz(epi_Fld1)
D MyGrp DS based(myGrpPtr)
D MyGrpfld 10 dim(40)

Falls der Compiler die Initialisierung der Adresse ablehnt (tut er manchmal) kann man diese auch zur Laufzeit setzen:

MyGrpPtr = %addr(epi_fld1);