将记录读入RPGLE循环？

Question

我被一个问题卡住了，我知道要执行循环，我需要读取循环中的记录，但我不知道该怎么做……这是我对这部分代码的了解。我不知道该怎么办

    //Initial Subroutine
    Begsr Initial;
    Write Headings;
    Read WUINPAY;
      Holdvar=pinst#
      DoU %Eof;
       If Holdvar <>0;
       Endif;
      Enddo;

Answer 1

您需要在循环中进行读取。

编写读取循环的最常用方法是

read ...
dow not %eof;
   do stuff
   read ...
enddo;