Vielleicht liest du die Daten ganz einfach per SQL ein?
Wenn du für die Felder eine DS angelegt hast reicht ein simpler "Select * from table where ... order by datum, rrn(table)" mit passendem Fetch.
Das ist viel einfacher und effektiver als das Ganze rumgeeiere;-).

Ich modifiziere für Kunden gerne alte Programme. Da lohnt sich schon mal den einen oder anderen Zugriff auf SQL umzustellen. Besonders wenn Where-Klauseln oder Sortierungen komplexer sind.
An der F-Bestimmung braucht man da nichts zu ändern.

Ansonsten prüfe mal deine LF-Source:
https://www.ibm.com/docs/en/i/7.3?to...-logical-files