Zweidimensionale Tabellen

[Mark_S]

Hallo,

brauche auf der AS/400 eine zweidimensionale Tabelle (40 Zeilen, 5 Spalten)

Weiss jemand, wie die Definition aussieht?

Löst man das am besten über eine Copy-Strecke.

Vielen Dank im Voraus für Eure Tipps

[Fuerchau]

Die 1. Indexebene löst du über eine DS mit Anzahl 40, die 2. Ebene ist eine Tabelle mit Anzahl 5.

Die DS wird mit OCUR gesetzt, den Rest kennst du bestimmt.

[B.Hauser]

Hallo Mark,

falls Du bereits Release V5R2M0 hast, kannst Du auch eine Datenstruktur als Feldgruppe definieren.

Das Ergebnis ist das gleiche wie mit Occur, hat aber den Vorteil, dass die einzelnen Felder direkt qualifiziert angesprochen werden können.

Bei der Lösung mit OCCUR muss das entsprechende Datenstruktur-Element zunächst mit OpCode OCCUR oder Built-in-Function %Occur eingelesen werden.

Definition:
D Tabelle DS Dim(40) Qualified
D Feld 10A Dim(5)

/Free
Tabelle(35).Feld(3) = 'ABC';
/End-Free

Birgitta