Felder in mehreren DS verwenden

[Robi]

puuu

den muß ich erst mal begreifen ...

Die DS als Feldgruppe
und die Felder FELD1, Feld2 und Feld3 (sofern sie gleich sind)
auch als Feldgruppe oder eben einzelnd.

und
MyDs(n).tbx verweist auf TB01 - TBnn

Ok,
echt mal was dazugelernt ...

Danke
Robi

[Fuerchau]

Nun ja, ILERPG kommt nun damit in Bereiche die COBOL schon lange kann (Stichworte: Redefines, Name of Structure, move corresponding, geschachtelte Tabellen mit Occurs).

Man muss nur in COBOL denken um das in D-Spezifikationen umzusetzen.

[ILEMax]

Kann mir bitte nochmal jemand auf die Sprünge helfen ...

Ich habe in einer Datei

5 Kunden
und zu jedem Kunden 5 Artikel

D    K1        5s 0
D    K2        5S 0
D    K3        5S 0
D    K4        5S 0
D    K5        5S 0
 *
D    A11       8A     (1. Art. f 1. Kunde)
D    A12       8A     (1. Art. f. 2.Kunde)
D    A13       8A      ...
...

D    A54       8A     (5. Art. f.4. Kunde)
D    A53       8A     (5. Art. f. 5. Kunde)

Am Dateiaufbau kann ich nix machen

kann ich mit qualifies und einem Pointer eine DS so definieren, das ich mit

x = 4 und y = 3
und
kunde(x).Artikel(y)

an den 4. Kunden mit dem 3. Artikel ran komme?

Der (neugierige) ILEmax

[dschroeder]

Hallo,

deine Frage wegen Pointer habe ich nicht verstanden. Eine Matrix als Datenstruktur müsste meiner Ansicht nach so aussehen:
D kunde DS qualified dim(5)
D Artikel 20A dim(5)
*
/free

clear kunde;
kunde(1).Artikel(1) = 'Apfel von Kunde 1';
kunde(1).Artikel(2) = 'Birne von Kunde 1';

kunde(2).Artikel(1) = 'Apfel von Kunde 2';
kunde(2).Artikel(2) = 'Birne von Kunde 2';



/end-free


Dieter

[Fuerchau]

Da die Kunden und Artikel nicht im Zusammenhang definiert sind, hast du (durch Pointer) 5 Kunden und 25 Artikel:

d MyDs DS based(MyPtr) <= siehe Oben
d MyKd like k1 dim(5)
d myart like a11 dim(25)

x=3; y=1;

=> MyKd(x)
=> MyArt((x-1)*5+y)

Sollten in deiner Struktur Kunden und Artikel nicht direkt hintereinander stehen, so mach halt 2 DS'n mit 2 Pointern, 1x Kunde, 1xArtikel.