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

2.2.313 JMN1688I-S

MULTIPLE REELおよびUNIT指定はプログラム定義以外には指定できません.

      000001 IDENTIFICATION DIVISION.
      000002 CLASS-ID.      C1688.
      000003 OBJECT.
      000004 ENVIRONMENT    DIVISION.
      000005 INPUT-OUTPUT   SECTION.
      000006 FILE-CONTROL.
      000007     SELECT IN-FILE
      000008         ASSIGN TO INFILE
      000009         MULTIPLE REEL
      000010         ORGANIZATION LINE SEQUENTIAL
      000011         .
      000012 DATA           DIVISION.
      000013 FILE           SECTION.
      000014 FD IN-FILE.
      000015 01 IN-REC.
      000016   02 I-CODE      PIC X.
      000017 END OBJECT.
      000018 END CLASS C1688.
    

C1688.cob (8) : JMN1688I-S MULTIPLE REELおよびUNIT指定はプログラム定義以外には指定できません.