例
000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1358. 000003 DATA DIVISION. 000004 WORKING-STORAGE SECTION. 000005 01 A1 PIC X. 000006 01 B1 GLOBAL REDEFINES A1. 000007 END PROGRAM C1358.
C1358.cob (6) : JMN1358I-W REDEFINES句は,データ記述項の最初の句でなければなりません.REDEFINES句は,有効になります.