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

2.4.227 JMN3395I-S

READ文のPREVIOUSは,動的呼出しの索引ファイルまたは相対ファイル以外に指定できません.

      000001 IDENTIFICATION DIVISION.
      000002 PROGRAM-ID.  C3395.
      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 PREVIOUS.
      000018 END PROGRAM  C3395.
    

C3395.cob (17) : JMN3395I-S READ文のPREVIOUSは,動的呼出しの索引ファイルまたは相対ファイル以外に指定できません.