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

2.4.29 JMN3040I-S

@2@文中の一意名@1@は,INDEXED BY指定を持つOCCURS句が指定されたデータ項目でなければなりません.

引数の説明

@1@:

一意名

@2@:

SEARCH/SEARCH ALL

      000001 IDENTIFICATION DIVISION.
      000002 PROGRAM-ID.  C3040.
      000003 ENVIRONMENT  DIVISION.
      000004 DATA  DIVISION.
      000005 WORKING-STORAGE SECTION.
      000006 01  TBL.
      000007   02  A OCCURS 5 TIMES.
      000008     03  B PIC 9.
      000009 PROCEDURE  DIVISION.
      000010     SEARCH A WHEN B(1) = 0
      000011     STOP RUN.
    

C3040.cob (10) : JMN3040I-S SEARCH文中の一意名'A'は,INDEXED BY指定を持つOCCURS句が指定されたデータ項目でなければなりません.