Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
IBM Mainframe Forum Index
 
Register
 
IBM Mainframe Forum 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: 27
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: 8469
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: 27
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: 8469
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 Upgrade to Enterprise COBOL 6 JPVRoff COBOL Programming 2 Thu Aug 01, 2019 7:21 am
No new posts COBOL copybook to Focus anandgbe COBOL Programming 7 Wed Jul 31, 2019 11:52 am
No new posts Odd bit of COBOL socker_dad COBOL Programming 3 Tue Jul 09, 2019 4:46 am
No new posts Regarding mroe data to be processed i... vinu78 DB2 3 Mon May 27, 2019 7:31 pm
No new posts S0C7 abend while running a Cobol Program amitc23 COBOL Programming 2 Tue May 07, 2019 4:06 pm

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