例
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID. P2402.
000003 ENVIRONMENT DIVISION.
000004 INPUT-OUTPUT SECTION.
000005 FILE-CONTROL.
000006 SELECT REPFILE ASSIGN TO SYS001.
000007 DATA DIVISION.
000008 FILE SECTION.
000009 FD REPFILE REPORT REP1.
000010 WORKING-STORAGE SECTION.
000011 01 REP-SOU PIC N(6).
000012 01 REP-SOU PIC X(12).
000013 REPORT SECTION.
000014 RD REP1 PAGE 46
000015 HEADING 1
000016 FIRST DETAIL 7
000017 LAST DETAIL 44.
000018 01 TYPE PAGE HEADING.
000019 02 LINE 01 COLUMN 35 PIC N(6) SOURCE REP-SOU.
000020 PROCEDURE DIVISION.
000021 END PROGRAM P2402.
P2402.cob (19) : JMN2402I-S SOURCE句の一意名が，一意でありません．