例題
[C1155.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1155. 000003 DATA DIVISION. 000004 WORKING-STORAGE SECTION. 000005 01 WORK1. 000006 02 CHR PIC X(10) VALUE "ABCDEFGHIJ". 000007 01 WK2 REDEFINES WORK1 OF WK1. 000008 02 CHR PIC X(10). 000009 END PROGRAM C1155.
C1155.cob 7: JMN1155I-S REDEFINES句のデータ名は修飾できません．修飾語は無効になります．
