| IBM MAINFRAME HELP & SUPPORT FORUMS
Technical Forums for IBM Mainframe Applications like COBOL, JCL, CICS, DB2, FileAid, DFSORT, Endevor, Xpediter, CoolGen, CA-7&11, AbendAid, IMS, IDMS, PL/I, MqSeries, SyncSort, Assembler, ChangeMan, Easytrieve, InterTest, REXX, CLIST etc...
|
| View previous topic :: View next topic |
| Author |
Message |
purushoth_jp
Joined: 12 Dec 2004
Posts: 22
|
| Posted: Tue Dec 14, 2004 2:11 pm Post subject: redefines |
|
|
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
Joined: 06 Jan 2004
Posts: 257
|
| Posted: Tue Dec 14, 2004 3:47 pm Post subject: |
|
|
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 |
|
| |
THIS IS AN ARCIVE FORUM IN READ ONLY MODE. IF YOU WANT TO ASK YOUR DOUBTS USE THE ACTUAL FORUM
|
