MVSFORUMS.com

[mangsk]

I have a commarea defined with following structure
02 XXX-CA.
05 A-VAR1 PIC X(500).
05 B-VAR1 OCCURS 10 TIMES.
10 B-VAR-ELM PIC X(10).

Now say prpg A LINK's to prog B; but for processing after this LINK prog A needs its original commarea back. I do populate values in array B-VAR1 in the called program B.
So what I do is this -

MOVE XXX-CA TO XXX-CA-TEMP
MOVE 'XRSRSBSHJNJ' TO A-VAR1
EXEC CICS
LINK(PROG-B)
COMMAREA(XXX-CA)
END-EXEC
MOVE XXX-CA-TEMP(1:500) TO XXX-CA-TEMP(1:500)

Even then I see that B-VAR1 is wiped out (initialized). A-VAR1 is untouched and as desired it contains values before LINK operation.
What am i missing here? Why is this happening?
_________________
Regards,
Mangsk

[mangsk]

Correction: Please read
MOVE XXX-CA-TEMP(1:500) TO XXX-CA-TEMP(1:500)
as
MOVE XXX-CA-TEMP(1:500) TO XXX-CA(1:500)
and XXX-CA-TEMP is defined in working storage of Prog A as -
05 XXX-CA-TEMP PIC x(600).
_________________
Regards,
Mangsk

[nileshpalve]

I am not sure if u understand but your XXX-CA which u are trying to preserve even after LINK is longer than 500 bytes. And you are restoring only 500 bytes in essence u are restoring only A-VAR1 and nothing else.

XXX-CA size = A-VAR1 PLUS B-VAR1 PLUS B-VAR-ELM

Create a temp variable which can hold the entire XXX-CA variable and use it as Hold variable.