Datenstruktur aus Cobol in RPG nachbilden

[Fuerchau]

Das funktioniert nur in ILERPG relativ einfach:

D MYDS DS DIM(10) QUALIFIED
D FELD1 2
D FELD2 5 DIM(10)

Referenziert dann per
MYDS(I1).FELD2(I2)

[chera]

hallo fuerchau,

danke für die antwort. soweit bin ich auch schon, aber wie bekomme ich das hin, dass diese ds die erste ds überlagert (sowie in meinem cobol beispiel). dort liegt die zweite über der ersten ds und auf basis der einzelnen felder ist die zweite ds gefüllt.

geht das auch in ilerpg?

[Fuerchau]

Im Prinzip ja:

D MYDS2 DS QUALIFIED
D FELD1 2
D FELD2 5 DIM(4)

D MYDS1 DS QUALIFIED
D MYSTRU 42
D MYF1 2 overlay(MYSTRU:1)
D MYF2 5 overlay(MYSTRU:3)
D MYF3 5 overlay(MYSTRU:8)
:
:
D MYR2 likeds(MYDS2) dim(10) overlay(MYSTRU)

So ungefähr müsste es gehen.

[chera]

leider nicht, da schlüsselwort dim nicht auch schlüsselwort likeds folgen darf.

da muss ich mir was anderes einfallen lassen.

[Fuerchau]

Auf die Schnelle:

d myds ds qualified
d f1 2
d f2 10 dim(4)
d myds2 ds qualified
d myst 420
d fx likeds(myds) dim(10)
d overlay(myst)

wird bei mir problemlos umgewandelt (V5R4).

[chera]

ja, daran wird es wohl liegen. muss mich hier noch mir V5R1 herum quählen.

aber zur info, hab die felder einfach umsortiert. da hätte ich auch gleich drauf kommen können. trotzdem vielen dank für die antworten