To migrate two programs which use COMMAREAs to exchange a structure
as part of a pseudoconversation, change the instructions shown in
Table 1.
Table 1. Migrating pseudoconversational
COMMAREAs on RETURN commandsProgram |
Before |
After |
PROG1 |
EXEC CICS RETURN TRANSID(PROG2)
COMMAREA(structure)
|
EXEC CICS PUT CONTAINER(structure-name)
CHANNEL(channel-name)
FROM(structure)
EXEC CICS RETURN TRANSID(TRAN2)
CHANNEL(channel-name)
|
PROG2 |
EXEC CICS ADDRESS
COMMAREA(structure-ptr)
|
EXEC CICS GET CONTAINER(structure-name)
INTO(structure)
|