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

2.2.191 JMN1315I-S

直接編成ファイル,相対編成ファイルまたはインデックスつき編成ファイルに,FILE STATUS句は指定できません.

      000001 IDENTIFICATION  DIVISION.
      000002 PROGRAM-ID.     C1315.
      000003 ENVIRONMENT     DIVISION.
      000004 INPUT-OUTPUT    SECTION.
      000005 FILE-CONTROL.
      000006     SELECT IN-F ASSIGN SYS000-DA-S1-D-NAME
      000007     ACCESS MODE IS SEQUENTIAL
      000008     ACTUAL KEY  IS K1
      000009     FILE STATUS IS FSTAT
      000010     .
      000011 DATA            DIVISION.
      000012 FILE            SECTION.
      000013 FD  IN-F.
      000014 01  IN-R  PIC X(80).
      000015 WORKING-STORAGE SECTION.
      000016 01  FSTAT       PIC XX.
      000017 01  K1          PIC X(10).
      000018 END PROGRAM C1315.
    

C1315.cob (9) : JMN1315I-S 直接編成ファイル,相対編成ファイルまたはインデックスつき編成ファイルに,FILE STATUS句は指定できません.