View previous topic :: View next topic
|
Author |
Message |
ranjani Warnings : 1 New User
Joined: 25 Oct 2006 Posts: 13
|
|
|
|
i am writing a code to understand the concept of commarea.
the gist of my code is
working storage section.
01 commarea.
05 data1 pic x(10).
linkage section.
01 dfhcommarea.
05 ddata1 pic x(10).
Procedure Division.
if eibcalen = 0 then
move 'abcde' to data1
perform send-map
perform return-para
else
exec cics
send from (ddata1)
end-exec
perform receive-map
perform return-para
end-if.
if i run this prgm in cics, it terminates abnormally and comes to the cics login screen as ddata1 as some junk values.
when i tried displaying data1 in the else part , the result was the same (obviously because data1 is unknown). Can anyone please tell me, why this is happening. |
|
Back to top |
|
|
ofer71
Global Moderator
Joined: 27 Dec 2005 Posts: 2358 Location: Israel
|
|
|
|
COMMAREA is meant to be used as communication area between programmatic entities, not BMS.
O. |
|
Back to top |
|
|
mahesh_yellale
New User
Joined: 25 Dec 2006 Posts: 3 Location: pune
|
|
|
|
to use commarea you need to mention RETURN command to youa TRANSID and then COMMAREA. following is the code
EXEC CICS RETURN
TRANSID(WS-ARAE1)
COMMAREA(WS-AREA2)
LENGTH(WS-LENGTH)
END-EXEEC.
I THINK YOU UNDERSTOOD NOW |
|
Back to top |
|
|
|