Zitat Zitat von B.Hauser Beitrag anzeigen
Musst Du nicht! Da Feld1 und Feld2 ebenfalls Feldgruppen sind:

Code:
 
D MyDS            DS                      Qualified
D   MyArray                             Dim(10)
D     Feld1                      10A    Overlay(MyArray)
D     Feld2                      10I 0  Overlay(MyArray: *Next)
/Free
    MyDS.Feld1(1) = 'XYZ';
    MyDS.Feld1(2) = 'AAA';
   
    MyDS.Feld2(1) = 'XXX';
    MyDS.Feld2(2) = %Int(MyDS.Feld1(7));
 /End-Free
Übrigens MyArray ist allein durch die Überlagerung definiert, d.h. es ist keine weitere Definition (wie Längenangabe oder Datentyp) notwendig

@Baldur
Glaubst Du, Du bist das einzige arme Schweinchen?
Ich muss noch alles auf V5R2 runterwandeln ... und bevor der letzte unserer Kunden nicht von V5R2 weg ist, passiert da auch nichts weiter.

Birgitta
Hallo Frau Hauser,

wollte Anhand Ihren Beispiel ein Array sortieren.
Kann das Array eigentlich Felder besitzen mit Unterschiedlichen Länge, bin da beim Probieren, aber bekomme es einfach nicht gebacken(Dezimaldatenfehler).

Gruß

Tarki