IBM Mainframe Forum Index
 
Log In
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Register
 

SYSADATA - COBOL - Structure displacement not populating


IBM Mainframe Forums -> COBOL Programming
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
ganasrinivasan

New User


Joined: 06 Nov 2006
Posts: 27
Location: Montreal

PostPosted: Thu May 24, 2018 9:45 pm
Reply with quote

Hi, Structure displacement field of SYSADATA is not getting populated for anyof the working storage variables after compilation. Anyidea?. X'0042' - SYSADATA record type.
Back to top
View user's profile Send private message
Robert Sample

Global Moderator


Joined: 06 Jun 2008
Posts: 8696
Location: Dubuque, Iowa, USA

PostPosted: Thu May 24, 2018 10:06 pm
Reply with quote

Do you have option ADATA or NODATA specified in your compile? If NOADATA, nothing will be written to SYSADATA.
Back to top
View user's profile Send private message
ganasrinivasan

New User


Joined: 06 Nov 2006
Posts: 27
Location: Montreal

PostPosted: Thu May 24, 2018 11:20 pm
Reply with quote

Hi Robert, Its writing to SYSADATA but in x'0042' record, "structure displacement" field value is x'0000'. In the manual, I can spot below comment that this will be zero for variably located items. But mine is working storage variable.

Structure displacement - AL4 -
Offset of symbol within structure. This offset is set to 0 for variably located items.
Back to top
View user's profile Send private message
Robert Sample

Global Moderator


Joined: 06 Jun 2008
Posts: 8696
Location: Dubuque, Iowa, USA

PostPosted: Fri May 25, 2018 2:25 am
Reply with quote

Structure displacement is a 4-byte field; you have providing us the first 2 bytes as X'0000' -- what are the second 2 bytes?
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic View Bookmarks
All times are GMT + 6 Hours
Forum Index -> COBOL Programming

 


Similar Topics
Topic Forum Replies
No new posts Replace each space in cobol string wi... COBOL Programming 3
No new posts COBOL -Linkage Section-Case Sensitive COBOL Programming 1
No new posts COBOL ZOS Web Enablement Toolkit HTTP... COBOL Programming 0
No new posts Calling DFSORT from Cobol, using OUTF... DFSORT/ICETOOL 5
No new posts Generate random number from range of ... COBOL Programming 3
Search our Forums:

Back to Top