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: 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: 8410
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: 8410
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 COBOL D2 program execution without us... dipsybaby DB2 3 Mon Dec 10, 2018 2:08 pm
No new posts calling java code(on mainframe from c... elixir1986 COBOL Programming 1 Fri Nov 30, 2018 1:57 am
No new posts COBOL file declaration jithinraghavan COBOL Programming 2 Fri Nov 16, 2018 10:54 pm
No new posts Accessing control blocks to retrieve ... menonkiran COBOL Programming 5 Wed Nov 14, 2018 9:08 pm
No new posts how to use RDZ for converting cobol c... balajiChid CICS 1 Tue Oct 09, 2018 8:40 pm

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