例
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指定の目的語は,整数項目でなければなりません.
詳細な説明
繰り返しの反復回数を示すデータであるため,整数項目でなければなりません.