Example of REDEFINE CLAUSE
PROGRAM
IDENTIFICATION DIVISION.
PROGRAM-ID. PGM002.
AUTHOR. MAINFRAMEWIZARD. DATA DIVISION. WORKING-STORAGE SECTION.01 DATE1 PIC X(8).
01 DATE2 REDEFINES DATE1.
05 DATE2-DD PIC X(2).
05 DATE2-MM PIC X(2).
05 DATE2-YYYY PIC X(4). PROCEDURE DIVISION.10000-MAIN-PARA.
MOVE 08092010 TO DATE1
DISPLAY ‘DATE =’ DATE1
DISPLAY ‘YEAR OF DATE=’ DATE2-YYYY
STOP RUN.