2.4.85 JMN3121I-S

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

引数の説明

@1@:

'REEL'，'UNIT'

例

      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指定は，無効になります．