View previous topic :: View next topic
|
Author |
Message |
yoyok
New User
Joined: 19 May 2010 Posts: 4 Location: jakarta
|
|
|
|
In my Cobol compilation of a CICS program, I found the following messages :
001065 01 dfhldver pic x(22) value 'ld table dfheitab 650.'
001066 is global.
==001066==> IGYDS1318-E Data-name "DFHLDVER" was previously defined in this "DATA DIVISION" with the "GLOBAL" clause. The "GLOBAL" clause on this definition was discarded.
I did not intentionally include any copybook that contained variable dfhldver and never defined it in the program. How could I get rid of this variable?
Many thanks in advance. |
|
Back to top |
|
|
dick scherrer
Moderator Emeritus
Joined: 23 Nov 2006 Posts: 19244 Location: Inside the Matrix
|
|
|
|
Hello and welcome to the forum,
Suggest you look back thru the outputs from this job and learn where this was first in the code. . . |
|
Back to top |
|
|
yoyok
New User
Joined: 19 May 2010 Posts: 4 Location: jakarta
|
|
|
|
Thank you for the response.
In the compile listing, I found the following messages.
01 dfhldver pic x(22) value 'ld table dfheitab 650.' is global.
IGYDS1318-E Data-name "DFHLDVER" was previously defined in this "DATA DIVISION" with the "GLOBAL" clause. The "GLOBAL" clause on this definition was discarded.
As a matter of fact, I never put such definition or copybook containing that definition in the source code. I don't know where this definition comes from. Any clue? |
|
Back to top |
|
|
yoyok
New User
Joined: 19 May 2010 Posts: 4 Location: jakarta
|
|
|
|
The position of that definition (that I never intentionally put) is just before the LINKAGE SECTION. |
|
Back to top |
|
|
dick scherrer
Moderator Emeritus
Joined: 23 Nov 2006 Posts: 19244 Location: Inside the Matrix
|
|
|
|
Hello,
This sounds like "something" is going astray in the pre-processor - probably because of something in the code.
Suggest you review the entire code and speak with your cics/compiler support. |
|
Back to top |
|
|
Bill O'Boyle
CICS Moderator
Joined: 14 Jan 2008 Posts: 2501 Location: Atlanta, Georgia, USA
|
|
|
|
"GLOBAL" definitions are used in Nested Programming, introduced with VS/COBOL II, Version/Release 3.
Bill |
|
Back to top |
|
|
yoyok
New User
Joined: 19 May 2010 Posts: 4 Location: jakarta
|
|
|
|
Thank you Dick & Bill for the clues. I removed the paramater COBOL2 from step CICS translator PGM=DFHECP1$, and the message is gone now.
yoyok |
|
Back to top |
|
|
dick scherrer
Moderator Emeritus
Joined: 23 Nov 2006 Posts: 19244 Location: Inside the Matrix
|
|
|
|
Good to hear it is working - thank you for the followup
d |
|
Back to top |
|
|
|