Как я могу получить наибольшее значение поля из файла в ILE RPG без использования SQL?

Question

Я хочу получить доступ к файлу (FILE2) с ключом «самая высокая дата» из другого файла (FILE1).

Моя программа не использует SQL, и я не хочу изменять File-Тип,

Как я могу получить наивысшую дату из FILE2 для создания цепочки на FILE1?

Мой код выглядит неприлично:

KYFILE2.NUMBER = FILE1.NUMBER;
KYFILE2.DATE   = HIGHEST VALUE (FILE1.DATE);
KYFILE2.TIME   = HIGHEST VALUE (FILE1.TIME);
EXSR CHAIN TO FILE2;

Answer 1

Единственное, о чем я могу думать, это построить LF поверх файла с указанным полем в качестве ключа, выполнить SETGT *HIVAL и затем READP для файла.

Для чего выЯ бы сказал, что SQL - ваш лучший подход.