例題
[P2494.cob] 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は，指定できません．
