例題
[P2475.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. P2475. 000003 ENVIRONMENT DIVISION. 000004 INPUT-OUTPUT SECTION. 000005 FILE-CONTROL. 000006 SELECT SQFILE1 ASSIGN TO SYS001. 000007 I-O-CONTROL. 000008 DATA DIVISION. 000009 FILE SECTION. 000010 FD SQFILE1 000011 REPORT IS REP1. 000012 WORKING-STORAGE SECTION. 000013 01 WITM1 PIC 9(2). 000014 01 WITM2 PIC 9(2). 000015 REPORT SECTION. 000016 RD REP1 PAGE 66 000017 CONTROL WITM1 WITM2. 000018 01 . 000019 02 PIC S9(4). 000020 PROCEDURE DIVISION. 000021 END PROGRAM P2475.
P2475.cob 16: JMN2000I-S 報告書記述項には,報告集団記述項が従属しなければなりません.報告書記述項は,無効になります.
P2475.cob 18: JMN2475I-S 報告集団記述項のレベル番号01の項目にTYPE句が指定されていません.この報告集団記述項は,無効になります.
詳細な説明
報告集団記述項の最初の項目は,TYPE句を指定したレベル番号01の項目でなければなりません.TYPE句は,報告集団の種類と表示すべき時点を指定します.