例題
[P2491.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. P2491. 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 SAME RECORD AREA SQFILE1 REPFILE. 000010 DATA DIVISION. 000011 FILE SECTION. 000012 FD SQFILE1. 000013 01 PIC X(80). 000014 FD REPFILE 000015 REPORT IS REP1. 000016 WORKING-STORAGE SECTION. 000017 01 CTLD PIC 9(2). 000018 01 WITM PIC 9(2). 000019 REPORT SECTION. 000020 RD REP1 PAGE 66 000021 CONTROL CTLD. 000022 01 TYPE CF CTLD. 000023 02 WSC1 PIC 9(4) SUM WITM. 000024 PROCEDURE DIVISION. 000025 END PROGRAM P2491.
P2491.cob 14: JMN2491I-S SAME RECORD AREA句は，報告書ファイルに指定できません．そのまま処理を続行します．
