IBM Mainframe Forum Index
 
Register
 
IBM Mainframe Forum Index Mainframe: Search Log in to check your private messages Log in
 

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: 8568
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: 8568
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 All times are GMT + 6 Hours
Forum Index -> COBOL Programming
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Forum Replies
No new posts JCL for replacing code in Cobol JCL & VSAM 8
No new posts COBOL VS SORT Utility for file format... COBOL Programming 6
No new posts XML Parsing in COBOL creating "h... COBOL Programming 0
No new posts Calling Rexx program from Cobol CLIST & REXX 12
This topic is locked: you cannot edit posts or make replies. Missing Negative sign in COBOL COBOL Programming 6

Back to Top