IDENTIFICATION DIVISION.
PROGRAM-ID. REDEFPGM.
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
77 A PIC X(10) VALUE "REDEFINES"
77 B PIC X(10) REDEFINES A.
PROCEDURE DIVISION.
MAIN-PARA.
DISPLAY A.
DISPLAY B.
STOP RUN.
this program is not working and the error message is
7 IGYDS1048-E "REDEFINES" was not the first clause in a data definition
The clause was accepted
