xxxxxxxxxx
IDENTIFICATION DIVISION.
PROGRAM-ID. REDEF.
DATA DIVISION.
01 WEEK.
05 DAY-1 PIC X(12) VALUE ' MONDAY '.
05 DAY-2 PIC X(12) VALUE ' TUESDAY '.
05 DAY-3 PIC X(12) VALUE ' WEDNESDAY '.
05 DAY-4 PIC X(12) VALUE ' THURSDAY '.
05 DAY-5 PIC X(12) VALUE ' FRIDAY '.
05 DAY-6 PIC X(12) VALUE ' SATURDAY '.
05 DAY-7 PIC X(12) VALUE ' SUNDAY '.
01 WEEK1 REDEFINES WEEK PIC X(12) OCCURS 7 TIMES.
01 Y PIC 9 VALUE 1.
PROCEDURE DIVISION.
PERFORM VARYING Y FROM 1 BY 1 UNTIL Y>7
DISPLAY Y " DAY OF WEEK - " WEEK1(Y)
END-PERFORM.
STOP RUN.
xxxxxxxxxx
IDENTIFICATION DIVISION.
PROGRAM-ID. REDEFCLA.
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 WS-ITEM1 PIC 9(2) VALUE 4.
01 WS-ITEM2 REDEFINES WS-ITEM1 PIC 9(2).
PROCEDURE DIVISION.
DISPLAY 'VALUE OF WS-ITEM1 IS - ' WS-ITEM1.
DISPLAY 'VALUE OF WS-ITEM2 IS - ' WS-ITEM2.
STOP RUN.
//Output
VALUE OF WS-ITEM1 IS – 4
VALUE OF WS-ITEM2 IS – 4