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

2.4.113 JMN3162I-S

SEARCH ALL文のWHEN指定の@1@に対する最下位次元の添字は,@2@の最初の指標名でなければなりません.

引数の説明

@1@:

一意名

@2@:

一意名

      000001 IDENTIFICATION  DIVISION.
      000002 PROGRAM-ID.  C3162.
      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 INX1 INX2.
      000010          04  A  PIC 9.
      000011 PROCEDURE  DIVISION.
      000012     SEARCH ALL TBL-2
      000013     WHEN A(3, INX2) = 1
      000014       STOP RUN.
    

C3162.cob (13) : JMN3162I-S SEARCH ALL文のWHEN指定の'A'に対する最下位次元の添字は,'TBL-2'の最初の指標名でなければなりません.