Migrating pseudoconversational COMMAREAs on RETURN commands

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 commands
Program 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)