2.4.156 JMN3268I-S

SEARCH ALL文のWHEN指定の@1@の添字の数は，@2@個でなければなりません．

引数の説明

@1@:

一意名

@2@:

個数

例

      000001 IDENTIFICATION  DIVISION.
      000002 PROGRAM-ID.  C3268.
      000003 ENVIRONMENT  DIVISION.
      000004 DATA  DIVISION.
      000005 WORKING-STORAGE SECTION.
      000006 01  GRP.
      000007    02  TBL OCCURS 5 TIMES.
      000008       03   TBL-2 OCCURS 5 TIMES ASCENDING KEY IS A
      000009                                 INDEXED BY INX.
      000010          04  A  PIC 9.
      000011 PROCEDURE  DIVISION.
      000012     SEARCH ALL TBL-2
      000013     WHEN A(INX) = 1
      000014       STOP RUN.

C3268.cob (13) : JMN3268I-S SEARCH ALL文のWHEN指定の'A'の添字の数は，2個でなければなりません．