2.3.373 JMN1688I-S

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

例題

[C1688.cob]
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指定はプログラム定義以外には指定できません．