例題
[C3017.cob] 000001 @OPTIONS CONF(74) 000002 IDENTIFICATION DIVISION. 000003 PROGRAM-ID. C3017. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 01 GR01. 000007 02 ODO01 PIC 9(4) BINARY VALUE 3. 000008 02 TBL01 PIC X(10) OCCURS 10 DEPENDING ON ODO01. 000009 PROCEDURE DIVISION. 000010 MOVE SPACE TO GR01. 000011 END PROGRAM C3017.
C3017.cob 10: JMN3017I-I (CONF)OCCURS DEPENDING ON句とその目的語を共に含む集団項目が，受取り側に指定されています．受取り側項目の最大長で転記します．
