2.3.409 JMN2673I-S

@1@文中に誤った語@2@が指定されています．
AT ENDまたはWHENが現れるまで読み飛ばします．

引数の説明

@1@:

SEARCHまたはSEARCH ALL．

@2@:

誤った語

例

      000001 IDENTIFICATION DIVISION.
      000002 PROGRAM-ID.    P2673.
      000003 ENVIRONMENT    DIVISION.
      000004 DATA           DIVISION.
      000005 WORKING-STORAGE SECTION.
      000006 01 WGRP.
      000007   02 WDATA     OCCURS 10 INDEXED BY IX1
      000008                          ASCENDING KEY IS WITM1.
      000009     03 WITM1   PIC X.
      000010     03 WITM2   PIC X.
      000011 PROCEDURE      DIVISION.
      000012     SEARCH ALL WDATA VARYING IX1
      000013     WHEN WITM1(IX1) = "X"
      000014       DISPLAY "OK"
      000015     END-SEARCH
      000016 END PROGRAM    P2673.

P2673.cob (12) : JMN2673I-S SEARCH ALL文中に誤った語VARYINGが指定されています．AT ENDまたはWHENが現れるまで読み飛ばします．