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

DFHCOMMAREA uses 1st byte for Address??


IBM Mainframe Forums -> CICS
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
go4salu

New User


Joined: 12 Jan 2006
Posts: 11

PostPosted: Fri Jan 11, 2008 2:58 pm
Reply with quote

Hi all,
If I do not define any Linkage section variable in my CICS program then while compiling, DFHCOMMAREA PIC X gets added automatically. This is for addressability to be maintained by CICS root program.
Everybody is ok with it??

If it is....
Now, there is a requirement to Link (call) a program say B and get back 8bytes variables from it and use it in the calling program say A.

In the working storage of calling prog A how should i define the variable?
01 WS-COMMAREA PIC X(9) or
01 WS-COMMAREA PIC X(8).

If I define it with PIC X(8) then won;t it truncate because the first byte will be used for addressability?
Please let me know asap, I'm stuck up. Thanks in advance.

Regards,
Shailendra
Back to top
View user's profile Send private message
gupta vishal

New User


Joined: 25 Sep 2007
Posts: 15
Location: Gurgaon

PostPosted: Fri Jan 11, 2008 4:37 pm
Reply with quote

Hi,
you should define it as 05 var pic x(08). The Listing thus produced as a result of compilation wouldn't truncate.The compiler add a default pic x(01) DFHCOMM when no linkage is actually there.

Regards,
Vishal
Back to top
View user's profile Send private message
go4salu

New User


Joined: 12 Jan 2006
Posts: 11

PostPosted: Fri Jan 11, 2008 5:41 pm
Reply with quote

Thanks Vishal..
Compiler adds DFHCOMMAREA pic X, when there is no variable defined in lankage for addressability.

But what if there is already DFHCOMMAREA in the program. Then in that case system will assign first byte for addressability and rest we can use.. is it that way..
Or

when there is explicit DFHCOMMAREA then the compiler will not use the first byte of it for addressability and the all bytes can be used for data passage.

Please confirm on this asap

Thanks
Back to top
View user's profile Send private message
Earl Haigh

Active User


Joined: 25 Jul 2006
Posts: 475

PostPosted: Fri Jan 11, 2008 6:36 pm
Reply with quote

lgo4salu,

first byte of dfhcommarea is not for addressability. you need to
do some more review on CICS cobol programming and commareas.


take a look at:
publib.boulder.ibm.com/infocenter/pdthelp/v1r1/index.jsp?topic=/com.ibm.entcobol3.doc/tpenv03.htm
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 -> CICS

 


Similar Topics
Topic Forum Replies
No new posts Routing command Address SDSF to other... TSO/ISPF 2
No new posts Data set Rec-Cnt and Byte-Cnt Testing & Performance 2
No new posts 10 byte RBA conversion DB2 2
No new posts 10 byte RBA conversion -non applicati... JCL & VSAM 1
No new posts Dataset size increase on adding 1 byt... DFSORT/ICETOOL 8
Search our Forums:

Back to Top