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
 
SYSADATA - COBOL - Structure displacement not populating

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

New User


Joined: 06 Nov 2006
Posts: 25
Location: Montreal

PostPosted: Thu May 24, 2018 9:45 pm    Post subject: SYSADATA - COBOL - Structure displacement not populating
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: 8376
Location: Dubuque, Iowa, USA

PostPosted: Thu May 24, 2018 10:06 pm    Post subject:
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: 25
Location: Montreal

PostPosted: Thu May 24, 2018 11:20 pm    Post subject: Reply to: SYSADATA - COBOL - Structure displacement not populating
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: 8376
Location: Dubuque, Iowa, USA

PostPosted: Fri May 25, 2018 2:25 am    Post subject:
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    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
No new posts SQL IN predicate using COBOL table jerryte DB2 16 Fri Jun 29, 2018 10:30 pm
No new posts Converting SAS code to Cobol or Easyt... Ashish.Raghav All Other Mainframe Topics 6 Fri Jun 29, 2018 6:01 pm
No new posts Can we use a file both as input and o... Chiku kumar COBOL Programming 6 Thu Jun 28, 2018 3:30 pm
No new posts Varying List Select SQL Query In DB2 ... NikhilGuptaGaya DB2 5 Wed Jun 27, 2018 11:01 pm
This topic is locked: you cannot edit posts or make replies. Need help - DB2 Dynamic SQL Program e... NikhilGuptaGaya DB2 6 Sat Jun 23, 2018 1:58 pm

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