將記錄讀入RPGLE循環？

Question

我卡在一個問題上。我知道要執行的循環，我需要讀取循環內的記錄，但我無法弄清楚如何做到這一點..這就是我對這部分代碼的瞭解。我不知道該怎麼辦

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

Answer 1

您需要在循環內有READ。

最常用的方式編寫讀取環路

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