例題
[P2480.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. P2480. 000003 ENVIRONMENT DIVISION. 000004 INPUT-OUTPUT SECTION. 000005 FILE-CONTROL. 000006 SELECT REPFILE ASSIGN TO SYS001. 000007 I-O-CONTROL. 000008 DATA DIVISION. 000009 FILE SECTION. 000010 FD REPFILE 000011 REPORT IS REP1. 000012 WORKING-STORAGE SECTION. 000013 01 CTLD PIC X(1). 000014 01 CTLD PIC X(2). 000015 REPORT SECTION. 000016 RD REP1 PAGE 66 000017 FIRST DETAIL 10. 000018 01 TYPE DE LINE 12. 000019 02 COLUMN 10 PIC X(20). 000020 PROCEDURE DIVISION. 000021 END PROGRAM P2480.
P2480.cob 19: JMN2480I-S 報告集団記述項の基本項目には,SOURCE句,SUM句またはVALUE句のいずれか一つを指定しなければなりません.そのまま処理を続行します.