例
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID. P2494.
000003 ENVIRONMENT DIVISION.
000004 INPUT-OUTPUT SECTION.
000005 FILE-CONTROL.
000006 SELECT SQFILE1 ASSIGN TO SYS001.
000007 SELECT REPFILE ASSIGN TO SYS002.
000008 I-O-CONTROL.
000009 DATA DIVISION.
000010 FILE SECTION.
000011 FD SQFILE1.
000012 01 SQF1REC PIC X(80).
000013 FD REPFILE
000014 RECORD CONTAINS 0 CHARACTERS
000015 REPORT IS REP1.
000016 WORKING-STORAGE SECTION.
000017 01 WFS1 PIC X(2).
000018 REPORT SECTION.
000019 RD REP1 PAGE 66.
000020 01 DE-REC TYPE DE.
000021 02 LINE PLUS 1.
000022 03 COLUMN 1 PIC X(80) SOURCE SQF1REC.
000023 PROCEDURE DIVISION.
000024 END PROGRAM P2494.
P2494.cob (13) : JMN2494I-S 報告書ファイルにRECORD CONTAINS 0 CHARACTERSは,指定できません.