MVSFORUMS.com

[saurabh]

Hi ,

Need some help on this. This code has been generated by a
tool when it converted MANTIS-CICS code to COBOL-CICS code.

Definition of TASK-WORK-AREA variable
01 TASK-WORK-AREA.
03 MANTIS-AREA-ADDR USAGE IS POINTER.

inside a section following code is there

EXEC CICS ADDRESS TWA(ADDRESS OF TASK-WORK-AREA) END-EXEC.
SET MANTIS-AREA-ADDR TO ADDRESS OF XOSSINFO-AREA-MC.
EXEC CICS LINK PROGRAM('XSSSINFO') END-EXEC.

Here the first ADDRESS TWA sets the pointer reference.
Now the SET statement is setting the same pointer to XOSSINFO-AREA-MC
which is a 'working storage' variable( XOSSINFO-AREA-MC).
Is this correct ?
After this the XSSSINFO fails with a 0C1 .

Thanks
Saurabh