2.5.88 JMN3121I-S

@1@指定は，FORMAT句付きの印刷ファイル以外の順ファイルにだけ記述できます． @1@指定は，無効になります．

埋め込みの説明

@1@ : 'REEL'，'UNIT'

例題

[C3121.cob]
000001 IDENTIFICATION  DIVISION.
000002 PROGRAM-ID.  C3121.
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 RANDOM
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     CLOSE FILE-1 REEL.
000018     STOP RUN.

C3121.cob 17: JMN3121I-S REEL指定は，FORMAT句付きの印刷ファイル以外の順ファイルにだけ記述できます．REEL指定は，無効になります．