Feldgruppe über extern beschriebene Datenstruktur legen

[Fuerchau]

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);

[beegee]

Ja, danke: mit den DS Overlays hat es geklappt. Man denkt oft zu kompliziert

Pointer habe ich versucht, bin aber beim Kompilieren nicht zu recht gekommen (anderer Fehler als Initialisierung der Adresse).

[Pikachu]

Sieh mal hier bei IBM in "Loading a Run-Time Array" unter Punkt 2.

[Fuerchau]

Ich habe das wichtige "S" für Einzelvariable bei der Definition vergessen:
D MyGrpPtr S * inz(epi_Fld1)