例題
[P2333.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. P2333. 000003 ENVIRONMENT DIVISION. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 01 WGRP. 000007 02 WDPEND PIC S9(3)V99. 000008 02 WOCC OCCURS 10 DEPENDING ON WDPEND. 000009 03 PIC X. 000010 PROCEDURE DIVISION. 000011 END PROGRAM P2333.
P2333.cob 8: JMN2333I-S OCCURS句のDEPENDING ON指定の目的語は,整数項目でなければなりません.
詳細な説明
繰り返しの反復回数を示すデータであるため,整数項目でなければなりません.