Feldgruppen in ILE-RPG

[dino]

Wie definiere ich in ILE eine Feldgruppe, die sich beim Einlesen eines Datensatzen, z.B. 12 Monatsfelder mit Umsatz automatisch füllt, ohne 12 x ein move oder z-add zu machen?
Bei RPG II (irgendwann mal gemacht) war das kein Problem: Da wurde die Feldgruppe schon als FG in den "I"-Besimmungen definiert.

[Fuerchau]

Genauso kannst du es auch in ILERPG halten.
Auch hier kannst du mit I-Bestimmungen entsprechende Definitionen machen.
Mit CVTRPGSRC kannst du dir ja ein "altes" Programm konvertieren um das Verfahren zu ermitteln.

[B.Hauser]

... geht auch ohne I-Bestimmungen.
Die Datei-Felder müssen lediglich in einer Datenstruktur aufgelistet und durch eine Feldgruppe überlagert werden.
Etwa so:

D MyFileDS         DS                                                    
D    FileFld1                                                              
D    FileFld2                                                              
D    FileFld3                                                              
D    FldGruppe                                   Like(FileFld1) Dim(3)   
D                                                Overlay(MyFileDS) 

Birgitta

[dino]

Danke für den Tip. Werd ich ausprobieren.

[dino]

Hallo Brigitta, hab noch ein kleines Problem:

d inputwe ds
d fuwert01
d fuwert02
d fuwert03
d fuwert04
d fuwert05
d wert like(fuwert01) dim(5)

Debug:
EVAL inputwe
FUWERT01 OF INPUTWE = 00000013.51
FUWERT02 OF INPUTWE = 00000013.51
FUWERT03 OF INPUTWE = 00000000.00
FUWERT04 OF INPUTWE = 00000000.00
FUWERT05 OF INPUTWE = 00000000.00

EVAL wert
WERT OF INPUTWE(1) = .
WERT OF INPUTWE(2) = .
WERT OF INPUTWE(3) = .
WERT OF INPUTWE(4) = .
WERT OF INPUTWE(5) = .

Die Werte stehen nicht in der Feldgruppe!?!

[andreaspr@aon.at]

das overlay fehlt dir.

[dino]

Oh Mannomann, gerade bemerkt, als die Nachricht kam. Nicht mein Tag heute.. Danke für die Unterstützung.