例題
[P2193.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. P2193. 000003 ENVIRONMENT DIVISION. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 01 WGRP GLOBAL. 000007 02 WOCC OCCURS 10 DEPENDING ON WDPND. 000008 03 PIC X. 000009 01 WDPND PIC S9(9) BINARY. 000010 PROCEDURE DIVISION. 000011 END PROGRAM P2193.
P2193.cob 7: JMN2193I-S OCCURS DEPENDING ON句が大域属性を持つレコード中に指定されている場合，その目的語も同じデータ部中の大域属性を持つ項目でなければなりません．
