如何在不使用SQL的情况下从ILE RPG中的文件中获取字段的最高值？

Question

我想从另一个文件(FILE1)访问具有"最高日期"键的文件(FILE2).

我的程序没有使用SQL,我不想更改File-Typ,

如何从FILE2获取最高日期以在FILE1上建立链？

我的代码看起来像lide:

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是你最好的方法.