例題
[P2705.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. P2705. 000003 ENVIRONMENT DIVISION. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 01 WDA. 000007 02 WBUF PIC X(20). 000008 02 WVSTR REDEFINES WBUF. 000009 03 WLEN PIC S9(9) BINARY VALUE ZERO. 000010 03 WSTR PIC X(16). 000011 PROCEDURE DIVISION. 000012 END PROGRAM P2705.
P2705.cob 9: JMN2705I-W VALUE句は，REDEFINES句を持つ項目またはその項目に従属する項目に指定できません．VALUE句は，無効になります．
