如何使用if else语句跳过记录

Question

任何人都可以为我提供此问题的逻辑

仅使用bVH01-iMS-FLG ='Y'处理gtV。

1）如果不是iMS-ORDER，则绕过记录，阅读下一条记录＆amp;找下一个gTV来检查。一个gTV可以在输入文件gTVFLE中有多个记录。

2）如果是iMS-ORDER，继续处理 - ＆gt; abc00-PROCESS-RECORDS。需要确保是否有任何tVL没有通过验证/错误，那么应该保留整个gTV;然后继续查找/阅读下一个gTV。

Answer 1

根据您提供的有限信息，您正在阅读的某个记录中会显示一个名为BVH01-IMS-FLG的字段，您需要使用88级别来识别该条件，如下所示：

01 BVH01-IMS-FLAG pic X.
  88 PROCESS-THIS-RECORD value 'Y'.

似乎你在gTV文件中有相关记录，那些需要作为一个组进行处理，所以像这样：

Perform Read-gTV-Record
Perform until End-Of-File
   If PROCESS-THIS-RECORD
      Perform abc00-Process-Records
   End-IF
   Perform Read-gTV-Record
End-Perform  

实际上，您需要提供有关您要执行的操作的更多说明。记录gTV的布局以及有效的tVL意味着什么。