Wenn du Feld4 und Feld5 nicht brauchst, dann weglassen in der KLIST. Ansonsten Felder Filed zu nennen ist wirklich nicht gerade aussagekräftig.
Ferner nehme ich mal an, daß die Datei nach Datum sortiert ist, dann mußt Du noch BDAT abfragen.
Also etwa so:

FfoobarlgI E K DISK UC
FAYBABTUSO E DISK
C OPEN foobarlg
C *ENTRY PLIST
C PARM VDAT 60
C PARM BDAT 60
C AYB KLIST
C KFLD FIELD1
C KFLD FIELD2
C KFLD FIELD3
C Move StartWert1 Field1 * z.B. VDAT
C Move StartWert2 Field2
C Move StartWert3 Field3
C AYB Setll foobarlg
C AYB READEfoobarlg 50
C N50 *IN26 DOUEQ*ON
C READ foobarlg 26
C *IN26 IFEQ *ON
C AAC015 ORGT BDAT
C LEAVE
C ENDIF
C AAC015 IFGE VDAT
C DO
C AAC015 DOUGTBDAT
C EXSR FOO
C WRITEAYBABTR
C ENDDO
C ENDDO
C ENDIF
C ENDDO
C MOVE *ON *INLR
C CLOSE*ALL
CSR FOO
BEGSR
C* hier werden nur ge-movel-t
C ENDSR

Gruß

Matthias



[Dieser Beitrag wurde von Gerlitz am 07. Oktober 2002 editiert.]