IDENTIFICATION DIVISION. PROGRAM-ID. REDEF. DATA DIVISION. 01 W-REC. 02 W-DAYS. 05 D1 PIC X(10) VALUE \"SUNDAY\". 05 D2 PIC X(10) VALUE \"MONDAY\". 05 D3 PIC X(10) VALUE \"TUESDAY\". 05 D4 PIC X(10) VALUE \"WEDNESDAY\". 05 D5 PIC X(10) VALUE \"THURSDAY\". 05 D6 PIC X(10) VALUE \"FRIDAY\". 05 D7 PIC X(10) VALUE \"SATURDAY\". 02 W-DAYS1 REDEFINES W-DAYS PIC X(10) OCCURS 7 TIMES. 01 I PIC 9 VALUE 1. PROCEDURE DIVISION. BEGIN. PERFORM VARYING I FROM 1 BY 1 UNTIL I>7 DISPLAY \"DAY-\" I \" = \"W-DAYS1(I) END-PERFORM. STOP RUN.