* ==== TYPE: CI01 CICS ====
      *> FEATURE: DFHCOMMAREA + MAP simulation
      *> NOTE: CICS keywords marked with *> not for compilation
       IDENTIFICATION DIVISION.
       PROGRAM-ID. CI01.
       ENVIRONMENT DIVISION.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01 DFHCOMMAREA.
          05 WS-CA-LENGTH  PIC S9(4) COMP.
          05 WS-CA-DATA    PIC X(100).
       01 WS-MAP-RECV.
          05 WS-MAP-INPUT  PIC X(50).
       01 WS-MAP-SEND.
          05 WS-MAP-OUTPUT PIC X(50).
       01 WS-RESPONSE      PIC S9(8) COMP.
       PROCEDURE DIVISION.
      *>    EXEC CICS RECEIVE MAP('MAP01')
      *>        INTO(WS-MAP-RECV)
      *>        RESP(WS-RESPONSE)
      *>    END-EXEC.
           DISPLAY 'RECEIVED MAP'.
      *>    EXEC CICS SEND MAP('MAP01')
      *>        FROM(WS-MAP-SEND)
      *>        RESP(WS-RESPONSE)
      *>    END-EXEC.
           DISPLAY 'SENT MAP'.
      *>    EXEC CICS RETURN
      *>        COMMAREA(WS-COMMAREA)
      *>    END-EXEC.
           STOP RUN.