The field MCAS-CRP-NP-PAIDUP-AMT of MMASTER-WORK is getting corrupted data after the SET ADDRESS line. before the execution of this line its getting the proper data. Could anyone pls help me on what could be the reason for this ? I have put the displays before and after that line. Actually the total length of MMASTER-WORK has been changed but MCAS-CRP-NP-PAIDUP-AMT length is same what was earlier.pls help.
MOVE "PSMASTEY" TO USU07-DDNAME.
MOVE "READ" TO USU07-ACTION-CODE.
MOVE WINQ-POLICY TO USU07-POLNO.
EXEC CICS LINK
PROGRAM("LPSUSY07")
COMMAREA(I-O-COMMAREA)
END-EXEC.
DISPLAY "IN SURCHPAA LPSUSY07 out " MCAS-CRP-NP-PAIDUP-AMT.(here is gets the proper data)
EVALUATE USU07-RETCODE
WHEN "OK"
SET ADDRESS OF MMASTER-WORK
TO USU07-SCAT-ADDRESS
MOVE "READ" TO USU07-ACTION-CODE.
MOVE WINQ-POLICY TO USU07-POLNO.
EXEC CICS LINK
PROGRAM("LPSUSY07")
COMMAREA(I-O-COMMAREA)
END-EXEC.
DISPLAY "IN SURCHPAA LPSUSY07 out " MCAS-CRP-NP-PAIDUP-AMT.(here is gets the proper data)
EVALUATE USU07-RETCODE
WHEN "OK"
SET ADDRESS OF MMASTER-WORK
TO USU07-SCAT-ADDRESS
DISPLAY "IN SURCHPAA when ok " MCAS-CRP-NP-PAIDUP-AMT (here is is getting corrupted data)