2.3.317 JMN2530I-S

@1@指定を記述してはなりません．
指定を無視します．

引数の説明

@1@:

WHENまたはDELIMITERまたはCOUNT．

例

      000001 IDENTIFICATION DIVISION.
      000002 PROGRAM-ID.    P2530.
      000003 ENVIRONMENT    DIVISION.
      000004 DATA           DIVISION.
      000005 WORKING-STORAGE SECTION.
      000006 01 .
      000007   02 WTARGET   OCCURS 26 INDEXED BY IX1
      000008                          ASCENDING KEY IS WKEY.
      000009     03 WKEY    PIC S9(4).
      000010     03 WDATA   PIC X(1).
      000011 01 WANS        PIC X(1).
      000012 01 WDA1        PIC S9(4).
      000013 PROCEDURE      DIVISION.
      000014     SEARCH ALL WTARGET
      000015       AT END
      000016         DISPLAY "ERROR"
      000017     WHEN WKEY(IX1) = WDA1 + 12
      000018       MOVE WDATA(IX1) TO WANS
      000019     WHEN WKEY(IX1) = WDA1 + 30
      000020       MOVE WDATA(IX1) TO WANS
      000021     END-SEARCH
      000022 END PROGRAM    P2530.

P2530.cob (19) : JMN2530I-S WHEN指定を記述してはなりません．指定を無視します．

詳細な説明

UNSTRING文では，DELIMITED指定を記述しなかった場合，DELIMTER指定あるいはCOUNT指定を記述してはなりません．
SEARCH ALL文ではWHEN指定を複数記述してはなりません．
WHEN OTHER指定を複数記述してはなりません．