Mehrdimensionale Tabelle

[Rincewind]

Hallo zusammen,

Hier mal wieder eine Aufgabe für die vielen Fleissigen Helfer


Ich habe ein Subfile in dem ich wie folgt Daten anzeigen will


A B C D...
1 F1 F2 F1 F2 F1 F2 F1 F2 ...
2 F1 F2 F1 F2 F1 F2 F1 F2 ...
3 F1 F2 F1 F2 F1 F2 F1 F2 ...
4 F1 F2 F1 F2 F1 F2 F1 F2 ...
...


Sprich:
Nach "unten" im Subfile gibt es 99 verschieden Möglichkeiten
Nach "rechts" ebenso 99 Möglichkeiten
Pro Kombination brauche ich 2 Werte.


Bisheriger Versuch:
D DSTABDAT DS DIM(9999) QUALIFIED
D DSSTK LIKE(EKSTK)
D DSEK LIKE(EKPRS)

Wobei derzeit gilt:
Position 1 1 = Position 0101 in der Datenstruktur
Position 2 1 = 0201
3 1 = 0301
usw.

Dieser Weg ist natürlich nicht so schön wie eine WIRKLICHE 2 Dimensionale Tabelle.
Ich könnte dann auch damit leben (einfach weil ichs schöner finde) 2 Tabellen zu haben (eine pro feld (DSSTK, DSEK))


Also BITTE erleuchtet meinen Weg, mir fällt leider gar nix mehr ein wie es gehen könnte.

Rince

[Fuerchau]

Da gibts mehrere:

D DSTABDAT DS DIM(99) qualified
D DSSTK LIKE(EKSTK) DIM(99)

Der Zugriff erfolgt über "dsstabdat(i1).dsstk(I2)"

D DSTABDAT DS OCCURS(99)
D DSSTK LIKE(EKSTK) DIM(99)

Der Zugriff erfolgt über

occur dsstabdat i1
dsstk(I2)

[Rincewind]

Danke schön :-)

An der ersten Lösung war ich ja fast dran.. aber fast dran is eben auch vorbei

Ich werde auf jeden Fall zu Lösung 1 tendieren

Werde das wissen dieser DS Tabelle mal weiterverbreiten unter den hiesigen Programmierern


Rince, der jetzt wieder glücklich ist weils sauberer gelöst ist