请教大虾们一个让我感觉很奇怪的问题。

小行星

假设LF1基于PF1有关键字：A  
      LF2基于PF2 有关键字：A 和B
      LF3基于PF3有关键字： B和C
当我要删除LF1中的某一记录时要看LF2中的有没有通过A与之对应的记录
若有则不能删除，要先删除对应记录，否则直接删除。
在删除LF2中的某一记录时要求同LF1，要先看看LF3中有没有与之对应记录
应用同样的方法：先在LF1查找到该记录再检索LF2看有没有对应记录，做出相应动作。成功。但是在LF2中做相同操作时却不能正确检索LF3。而是统统删除。
更奇怪的是，我做了一个和LF1,LF2,PF1,PF2相同的对应文件，建立了RPG文件
实现相同操作也产生后一种情况。

别的应该没有什么不同。
麻烦各位给我指点一下。我用的是RPG3

xuguopeng

代码帖出来

小行星

M3DPCD    CHAINMM030L1R             14  
N14                DO                           
                    MOVELW2DPCD    M1DPCD         
          M1DPCD    CHAINMM031L1R             15  
  15                DELETMM030L1R                 
N15                MOVELMSG,1     MSG3           
                    END        

这个执行过程是对的。
          M1CCCD    CHAINMM031L1R             16
N16                DO                           
                    MOVELW2CCCD    M2CCCD        
          M2CCCD    CHAINMM032L1R             17
N17                MOVELMSG,1     MSG3         
  17                DELETMM031L1R               
                    END         

这个就相反的结果。