例
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID. P2420.
000003 ENVIRONMENT DIVISION.
000004 INPUT-OUTPUT SECTION.
000005 FILE-CONTROL.
000006 SELECT REPFILE ASSIGN TO SYS001
000007 ORGANIZATION IS RELATIVE.
000008 I-O-CONTROL.
000009 DATA DIVISION.
000010 FILE SECTION.
000011 FD REPFILE
000012 REPORT IS REP1.
000013 WORKING-STORAGE SECTION.
000014 01 CTLD PIC 9(2).
000015 REPORT SECTION.
000016 RD REP1 PAGE 66
000017 CONTROL CTLD.
000018 01 TYPE CF CTLD.
000019 PROCEDURE DIVISION.
000020 END PROGRAM P2420.
P2420.cob (12) : JMN2420I-S 報告書ファイルは順ファイルでなければなりません．この報告書ファイルは無効となります．