小编Tra*_*bst的帖子

IBM i RPG程序没有做任何事情

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

rpgle ibm-midrange

1
推荐指数
1
解决办法
344
查看次数

标签 统计

ibm-midrange ×1

rpgle ×1