Calling a CICS wrapper program to integrate the code

If you use the CICS® usage option when you generate the COBOL code, you must also update the CICS calling program so that it calls the wrapper program to execute the COBOL program for rule execution.

To update the CICS calling program:

1. Add an EXEC CICS PUT CONTAINER statement for each group item.

   For example, if you have two group items, LOAN and BORROWER, you might create the following statements:

   EXEC CICS PUT CONTAINER(LOAN-CONTAINER)
                 CHANNEL(MINILOAN-CHANNEL)
                 FROM(Loan) FLENGTH(Length of Loan)
                 END-EXEC
   
   EXEC CICS PUT CONTAINER(BORROWER-CONTAINER)
                 CHANNEL(MINILOAN-CHANNEL)
                 FROM(Borrower) FLENGTH(Length of Borrower)
                 END-EXEC
   

2. Replace the COBOL call statement with an EXEC CICS LINK PROGRAM statement that specifies the name of the channel that you want to pass to the wrapper program.
3. Add an EXEC CICS GET CONTAINER statement for each Top Level data item modified by the generated COBOL program.

   You must have the GET CONTAINER commands to get any information from the containers that has been modified by the COBOL program. The GET CONTAINER command picks up the information from the PUT CONTAINER command at the end of the wrapper program.

   Note: If the generated COBOL program increases the size of a data item, for example, if the generated program modifies an OCCURS DEPENDING ON variable, use COBOL pointers to retrieve the data.