将记录读入RPGLE循环？

Question

我遇到了一个问题。我知道要执行的循环我需要读取循环中的记录但我无法弄清楚如何做到这一点......这就是我对这部分代码的看法。我无法弄清楚该怎么做

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

Answer 1

你需要在循环中拥有READ。

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

static