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
 
DFHCOMMAREA uses 1st byte for Address??

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> CICS
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    Post subject: DFHCOMMAREA uses 1st byte for Address??
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    Post subject: Reply to: DFHCOMMAREA uses 1st byte for Address??
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    Post subject: Reply to: DFHCOMMAREA uses 1st byte for Address??
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    Post subject:
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:
http://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    IBMMAINFRAMES.com Support Forums -> CICS All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts Copy 4 byte of data from the last rec... arunsoods DFSORT/ICETOOL 9 Fri Oct 06, 2017 12:15 pm
No new posts IP Address of workstation martin9 CICS 3 Fri Jun 23, 2017 7:39 pm
No new posts RC 20 for Address ISPEXEC "ISRED... pkmurali CLIST & REXX 3 Sun Apr 16, 2017 11:30 pm
No new posts 2 byte YEAR from Y'DATE2' field tecnokrat DFSORT/ICETOOL 2 Tue Feb 07, 2017 12:05 pm
No new posts execute APP if they are not ADDRESS T... italo_pm CLIST & REXX 3 Fri Aug 12, 2016 2:15 am

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