例題
[P2822.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. P2822. 000003 DATA DIVISION. 000004 WORKING-STORAGE SECTION. 000005 01 WGRP. 000006 02 WLEN PIC 9(2). 000007 02 WOCC PIC X(2) OCCURS 20 DEPENDING ON WLEN. 000008 02 WVAD PIC X(2) VALUE "AB". 000009 PROCEDURE DIVISION. 000010 END PROGRAM P2822.
P2822.cob 8: JMN2822I-W VALUE句は，アドレス可変項目に指定できません．VALUE句は，無効になります．
詳細な説明
レコード中の可変位置(レコードの中で，OCCURS句にDEPENDING指定を指定したデータ項目の後に割り付けられる領域)にあるデータ項目にVALUE句を指定することはできません．
