Sample CICS wrapper program

If you set the CICS® usage option before generating the COBOL code, a CICS wrapper program is generated in addition to the generated COBOL code.

Note:

Deprecated feature: The COBOL code generation feature is deprecated in V8.5. This feature will be removed in a future release of the product. Use the COBOL Generation Project Migration wizard to migrate your Rules for COBOL project to a zRule Execution Server for z/OS® compatible rule project. See Deprecated features for migration details.

The following code shows the CICS wrapper program generated for a copybook named miniloan.cpy.

In this example, the name of the generated COBOL program is minicbl.

DATA DIVISION.
  WORKING-STORAGE SECTION.
    COPY MINLOAN.
* Define CICS Channel and Container
  01 CICS-WRAPPER.
    02 MINILOAN-CHANNEL PIC X(16) VALUE'minichnl'.
    02 LOAN-CONTAINER PIC X(16) VALUE'loancont'.
    02 BORROWER-CONTAINER PIC X(16) VALUE'borrcont'.
    ...
    
PROCEDURE DIVISION USING BORROWER LOAN.
* Task: get the loan container
GET-LOAN.
    EXEC CICS GET CONTAINER(LOAN-CONTAINER)
              CHANNEL(MINILOAN-CHANNEL)
              INTO(LOAN)
              END-EXEC.

* Task: get the borrower container
GET-BORROWER.
    EXEC CICS GET CONTAINER(BORROWER-CONTAINER)
              CHANNEL(MINILOAN-CHANNEL)
              INTO(BORROWER)
              END-EXEC.

* Task: call generated COBOL program
    CALL MiniCbl USING BORROWER LOAN

* Put loan back to the container
    EXEC CICS PUT CONTAINER(LOAN-CONTAINER)
              CHANNEL(MINILOAN-CHANNEL)
              FLENGTH(LENGTH OF LOAN)
              END-EXEC.

* Return to CICS call
    EXEC CICS RETURN END-EXEC.