View previous topic :: View next topic
|
Author |
Message |
purushoth_jp
New User
Joined: 12 Dec 2004 Posts: 22
|
|
|
|
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
will plz anyone can help to find out. |
|
Back to top |
|
|
anuradha
Active User
Joined: 06 Jan 2004 Posts: 247 Location: Hyderabad
|
|
|
|
Hi purushoth_jp,
Quote: |
77 A PIC X(10) VALUE "REDEFINES"
77 B PIC X(10) REDEFINES A. |
Declare as follows:
77 A PIC X(10) VALUE "REDEFINES".
77 B REDEFINES A PIC X(10). |
|
Back to top |
|
|
|