To migrate two programs which use a COMMAREA on an XCTL command
to pass a structure, change the instructions shown in Table 1.
Table 1. Migrating XCTL commands that
pass COMMAREAsProgram |
Before |
After |
PROG1 |
EXEC CICS XCTL PROGRAM(PROG2)
COMMAREA(structure)
|
EXEC CICS PUT CONTAINER(structure-name)
CHANNEL(channel-name)
FROM(structure)
EXEC CICS XCTL PROGRAM(PROG2)
CHANNEL(channel-name)
...
|
PROG2 |
EXEC CICS ADDRESS
COMMAREA(structure-ptr)
...
|
EXEC CICS GET CONTAINER(structure-name)
INTO(structure)
...
|