以下代码在 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