例題
[P2477.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. P2477. 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 000010 REPORT IS REP1. 000011 WORKING-STORAGE SECTION. 000012 01 WSO1 PIC X(10). 000013 REPORT SECTION. 000014 RD REP1 PAGE 66. 000015 01 TYPE DE LINE 12 DISPLAY. 000016 02 PIC X SOURCE WSO1. 000017 PROCEDURE DIVISION. 000018 END PROGRAM P2477.
P2477.cob 15: JMN2477I-S 報告集団記述項のUSAGE句は,印字項目を含まない集団項目に指定できません.そのまま処理を続行します.