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

我想从另一个文件（FILE1）访问键为“hightmate”的文件（FILE2）

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

如何从文件2获取在文件1上制作链的最高日期

我的代码看起来很简单：

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

---

我能想到的唯一一件事是在文件上构建一个LF，该字段作为键，在文件上执行

SETGT*HIVAL

，然后执行

READP

---

对于您正在做的事情，我会说SQL是您最好的方法。

我唯一能想到的是在文件上构建一个LF，将相关字段作为键，执行一个

SETGT*HIVAL

，然后对文件执行

READP

---

对于您正在做的事情，我想说SQL是您最好的方法。

是的，您是对的。所以我把文件改成了SQLRPGLE，我会用一个文件键desc向后做，然后读取文件。是的，你是对的。因此，我将文件更改为SQLRPGLEI，我将使用文件键desc反向执行此操作，然后读取文件。