Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Profile Log in to check your private messages Log in
 
IGYDS1318-E - "GLOBAL" clause on this definition w

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> COBOL Programming
View previous topic :: :: View next topic  
Author Message
yoyok

New User


Joined: 19 May 2010
Posts: 4
Location: jakarta

PostPosted: Thu May 20, 2010 12:22 pm    Post subject: IGYDS1318-E - "GLOBAL" clause on this definition w
Reply with quote

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
View user's profile Send private message

dick scherrer

Site Director


Joined: 23 Nov 2006
Posts: 19270
Location: Inside the Matrix

PostPosted: Thu May 20, 2010 7:37 pm    Post subject:
Reply with quote

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
View user's profile Send private message
yoyok

New User


Joined: 19 May 2010
Posts: 4
Location: jakarta

PostPosted: Wed Jan 05, 2011 11:50 am    Post subject: Reply to: IGYDS1318-E - "GLOBAL" clause on this de
Reply with quote

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
View user's profile Send private message
yoyok

New User


Joined: 19 May 2010
Posts: 4
Location: jakarta

PostPosted: Wed Jan 05, 2011 11:57 am    Post subject:
Reply with quote

The position of that definition (that I never intentionally put) is just before the LINKAGE SECTION.
Back to top
View user's profile Send private message
dick scherrer

Site Director


Joined: 23 Nov 2006
Posts: 19270
Location: Inside the Matrix

PostPosted: Wed Jan 05, 2011 9:26 pm    Post subject:
Reply with quote

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
View user's profile Send private message
Bill O'Boyle

CICS Moderator


Joined: 14 Jan 2008
Posts: 2504
Location: Atlanta, Georgia, USA

PostPosted: Wed Jan 05, 2011 9:33 pm    Post subject: Reply to: IGYDS1318-E - "GLOBAL" clause on this de
Reply with quote

"GLOBAL" definitions are used in Nested Programming, introduced with VS/COBOL II, Version/Release 3.

Bill
Back to top
View user's profile Send private message
yoyok

New User


Joined: 19 May 2010
Posts: 4
Location: jakarta

PostPosted: Wed Oct 26, 2011 3:01 pm    Post subject:
Reply with quote

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
View user's profile Send private message
dick scherrer

Site Director


Joined: 23 Nov 2006
Posts: 19270
Location: Inside the Matrix

PostPosted: Wed Oct 26, 2011 9:56 pm    Post subject: Reply to: IGYDS1318-E - "GLOBAL" clause on this de
Reply with quote

Good to hear it is working - thank you for the followup icon_smile.gif

d
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> COBOL Programming All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
This topic is locked: you cannot edit posts or make replies. Extract all "IF" Statements... Adarsh Damodaran CLIST & REXX 1 Wed Sep 06, 2017 9:28 am
No new posts Changeman get multiple "Browse C... elixir1986 Compuware & Other Tools 4 Fri Jul 14, 2017 1:48 am
No new posts Include/omit with "ALL" pa... mgl DFSORT/ICETOOL 6 Wed Jun 14, 2017 2:31 pm
No new posts How to see VIEW definition from BMC c... rohanthengal DB2 1 Thu May 04, 2017 1:50 pm
No new posts READ A PACKED "NEGATIVE" FI... jdesouza CA Products 3 Tue May 02, 2017 11:43 pm

Facebook
Back to Top
 
Job Vacancies | Forum Rules | Bookmarks | Subscriptions | FAQ | Polls | Contact Us