2.3.374 JMN2605I-S

SEARCH ALL文に指定された条件名@1@は，単一の値を持たなければなりません．

引数の説明

@1@:

エラーの原因となった条件名．

例

      000001 IDENTIFICATION DIVISION.
      000002 PROGRAM-ID.    P2605.
      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     88 XVAL    VALUE "X", "x".
      000011     03 WITM2   PIC X.
      000012 PROCEDURE      DIVISION.
      000013     SEARCH ALL WDATA
      000014     WHEN XVAL(IX1)
      000015       DISPLAY "OK"
      000016     END-SEARCH
      000017 END PROGRAM    P2605.

P2605.cob (14) : JMN2605I-S SEARCH ALL文に指定された条件名XVALは，単一の値を持たなければなりません．