ページの先頭行へ戻る
NetCOBOL for .NET V8.0 メッセージ集
FUJITSU Software

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個でなければなりません.