what happens if length in 01 DFHCOMMAREA is less than the length passed through commarea option
eg:
PGM A:
01 ws-comm pic x(30).
exec cics return
transid('ppre')
commarea(ws-comm)
end-exec
PGM B:
linkage section
01 DFHCOMMAREA
05 ws-lk-comm pix x(15).