以下代码在CRTBNDRPG下编译但在运行时仅停留在1个I/O上.
我要做的就是 - 我们所有的表都有8号订单号,但是这个文件有10个.所以我只创建了2个字段,我需要一个使它成为8,另一个是好的.为什么这个小程序没有起飞的想法?
FMFHHMH IF E DISK
F* output file
FMFHHMHPK O A E DISK
D*EXTSHP S 13 6
D
C
C READ MFHHMH
C Dow NOT %EOF(MFHHMH)
C iF %found
c MOVE MHORDR MHORDp
c MOVE MHZONE MHZONE
C WRITE MFHHMHP
C READ mfhhmh
C End
C END
C SETON LR
Run Code Online (Sandbox Code Playgroud)