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

2.3.188 JMN2385I-S

@1@句のデータ名'@2@'は,基底場所節以外に定義されていなければなりません.
データ名は,無効になります.

引数の説明

@1@:

LINAGEまたはOCCURS.

@2@:

エラーの原因となったデータ名.

      000001 IDENTIFICATION DIVISION.
      000002 PROGRAM-ID. C23851.
      000003 ENVIRONMENT DIVISION.
      000004 INPUT-OUTPUT SECTION.
      000005 FILE-CONTROL.
      000006     SELECT AFILE1 ASSIGN DD1
      000007            ORGANIZATION INDEXED
      000008            RECORD KEY IS RR1.
      000009 DATA DIVISION.
      000010 BASED-STORAGE SECTION.
      000011   01 RK1     PIC X(5).
      000012 FILE SECTION.
      000013   FD AFILE1 .
      000014   01 AREC1.
      000015     02 RR1   PIC X(2).
      000016 WORKING-STORAGE SECTION.
      000017   01 WREC1.
      000018     02 BREC2 OCCURS 10 DEPENDING ON RK1 PIC X(2).
      000019 PROCEDURE DIVISION.
      000020 END PROGRAM C23851.
    

C23851.cob (18) : JMN2385I-S OCCURS句のデータ名'RK1'は,基底場所節以外に定義されていなければなりません.データ名は,無効になります.