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

2.4.174 JMN3309I-S

基底場所節に定義されたデータ名@1@は,@2@文の@3@指定に記述できません.

引数の説明

@1@:

データ名

@2@:

READ文, START文

@3@:

指定

      000001 IDENTIFICATION DIVISION.
      000002 PROGRAM-ID.  C3309.
      000003 ENVIRONMENT DIVISION.
      000004 INPUT-OUTPUT SECTION.
      000005 FILE-CONTROL.
      000006     SELECT FILE-1 ASSIGN TO SYS001
      000007       ORGANIZATION IS INDEXED
      000008       RECORD KEY IS KEY-1
      000009       ACCESS MODE IS RANDOM.
      000010 DATA DIVISION.
      000011 BASED-STORAGE SECTION.
      000012  01 BSD-1 PIC X BASED ON PTR1.
      000013 FILE SECTION.
      000014  FD FILE-1.
      000015  01 REC-1.
      000016    02 KEY-1 PIC X(5).
      000017    02       PIC X(75).
      000018 WORKING-STORAGE SECTION.
      000019  01 PTR1  POINTER.
      000020 PROCEDURE  DIVISION.
      000021     OPEN INPUT FILE-1.
      000022     READ FILE-1 KEY IS BSD-1.
      000023     CLOSE FILE-1.
      000024 END PROGRAM  C3309.
    

C3309.cob (22) : JMN3309I-S 基底場所節に定義されたデータ名'BSD-1'は,READ文のKEY指定に記述できません.