View Full Version : Feldgruppen in ILE-RPG
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.
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.
... 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
Danke für den Tip. Werd ich ausprobieren.
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
16-03-10, 13:26
das overlay fehlt dir.
Oh Mannomann, gerade bemerkt, als die Nachricht kam. Nicht mein Tag heute.. Danke für die Unterstützung.