例題
[P2191.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. P2191. 000003 ENVIRONMENT DIVISION. 000004 INPUT-OUTPUT SECTION. 000005 FILE-CONTROL. 000006 SELECT REPFILE ASSIGN TO SYS002. 000007 I-O-CONTROL. 000008 DATA DIVISION. 000009 FILE SECTION. 000010 FD REPFILE 000011 REPORT IS REP1. 000012 WORKING-STORAGE SECTION. 000013 01 WGRP. 000014 02 WOCC OCCURS 10 DEPENDING ON WDPND. 000015 03 PIC X. 000016 REPORT SECTION. 000017 RD REP1 PAGE 66 000018 FIRST DETAIL 10. 000019 01 TYPE PH. 000020 02 LINE 7. 000021 03 WDPND COLUMN 60 PIC 9(4) VALUE 12. 000022 PROCEDURE DIVISION. 000023 END PROGRAM P2191.
P2191.cob 14: JMN2191I-S OCCURS DEPENDING ON句のデータ名は，報告書節以外に定義されていなければなりません．
