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

2.4.98 JMN3145I-S

READ文のKEY指定は,乱呼出しの索引ファイル以外のファイルに記述できません.
KEY指定は,無効になります.

      000001 IDENTIFICATION  DIVISION.
      000002 PROGRAM-ID. C3145.
      000003 ENVIRONMENT  DIVISION.
      000004 INPUT-OUTPUT SECTION.
      000005 FILE-CONTROL.
      000006     SELECT FILE-1  ASSIGN TO SYS001
      000007     ORGANIZATION IS INDEXED
      000008     ACCESS MODE IS SEQUENTIAL
      000009     RECORD KEY IS KEY-REC.
      000010 DATA  DIVISION.
      000011 FILE SECTION.
      000012 FD  FILE-1.
      000013    01 REC-1.
      000014     02 KEY-REC PIC XX.
      000015     02 FILLER  PIC X(78).
      000016 PROCEDURE  DIVISION.
      000017     READ FILE-1 KEY IS KEY-REC.
      000018     STOP RUN.
    

C3145.cob (17) : JMN3145I-S READ文のKEY指定は,乱呼出しの索引ファイル以外のファイルに記述できません.KEY指定は,無効になります.