Hallo allerseits,
wieder einmal habe ich ein Problem bei dem ich nicht mehr weiterkomme.
Eine vollprozedurale Datei die 3 Keyfelder mit jeweils 3 numerischen Stellen aufweist soll durchgelesen werden.
Das Problem dabei. Jedes der Keyfelder kann mit Werten von - bis vorbelegt werden, wobei die Werte zwischen 1 und 999 liegen können. Festzuhalten ist, dass lediglich das erste Keyfeld einen Eintrag größer als 0 aufweisen muss.
also z.B.:
Key01: von 50 bis 51
Key02: 0
Key03: 0
ist genauso möglich wie
Key01: von 1 bis 900
Key02: von 1 bis 999
Key03: von 1 bis 999
Ich setze also mit SETLL auf die Datei auf:
Code:
KeyLIST SETLL FILE
Do *Hival
READ FILE
IF %EOF(FILE)
LEAVE
ENDIF
.
.
.
EndDo
Wie muss ich vorgehen, damit bei Erreichen der jeweiligen BIS-Werte entsprechend reagiert werden kann?
Wird z.B. bei Key03 der Wert 999 erreicht, so muss erneut mit folgenden Werten aufgesetzt werden:
Key01: von 1 bis 900
Key02: von 2 bis 999
Key03: von 1 bis 999
und wird bei Key02 999 erreicht, so muss erneut aufgesetzt werden:
Key01: von 2 bis 900
Key02: von 1 bis 999
Key03: von 1 bis 999
Wie kann ich das ausprorammieren ohne Gruppenwechselschalter zu verwenden, die ja nur bei Primärdateien möglich sind?
Ich bräuchte wirklich dringend wieder eure Hilfe bei diesem Problem.
Danke schon mal im Voraus.
Bookmarks