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

Question

我想从另一个文件 (FILE1) 使用密钥 "highest date" 访问一个文件 (FILE2)。

我的程序没有使用 SQL，我不想更改文件类型，

如何从 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 是你最好的方法。