IDENTIFICATION DIVISION.
       PROGRAM-ID. DCJB8PGM.
       AUTHOR. HENRY ZHENG.

       ENVIRONMENT DIVISION.
       CONFIGURATION SECTION.
       DATA DIVISION.
       WORKING-STORAGE SECTION.

           COPY 'DCJB8MM'.

       LINKAGE SECTION.

       01 DFHCOMMAREA PIC X.

       PROCEDURE DIVISION.

           EXEC CICS HANDLE CONDITION
                MAPFAIL(100-FIRST-TIME)
           END-EXEC.

           EXEC CICS RECEIVE
                MAP('MAP1')
                MAPSET('DCJB8MM')
           END-EXEC.

           GO TO 200-MAIN-LOGIC.

       100-FIRST-TIME.
      * SEND MAP AND RETURN CONTROL TO USER
           MOVE LOW-VALUES TO MAP1O.
           EXEC CICS SEND
               MAP('MAP1')
               MAPSET('DCJB8MM')
               ERASE
           END-EXEC.

           EXEC CICS
                RETURN
                TRANSID('JB80')
           END-EXEC.

       200-MAIN-LOGIC.

           IF CHOICEI = '1'
      * EXECUTE PARAGRAPH FOR OPTION 1
                GO TO 300-CHOICE-ONE
           ELSE IF CHOICEI = '2'
      * EXECUTE PARAGRAPH FOR OPTION 2
                GO TO 400-CHOICE-TWO
           ELSE IF CHOICEI = '3'
      * EXECUTE PARAGRAPH FOR OPTION 3
                GO TO 500-CHOICE-THREE
           ELSE IF CHOICEI = '4'
      * EXECUTE PARAGRAPH FOR OPTION 4
                GO TO 600-CHOICE-FOUR
      * EXECUTE PARAGRAPH FOR OPTION 9
           ELSE IF CHOICEI = '9'
      * EXIT APPLICATION
                GO TO 999-EXIT
           ELSE
      * INVALID CHOICE
                GO TO 900-CHOICE-INVALID

           END-IF
           END-IF.

       300-CHOICE-ONE.

           MOVE LOW-VALUES TO MAP1O.

           MOVE 'CHOICE 1 IS NOT AVAILABLE'
               TO MSGO.

           EXEC CICS SEND
                MAP('MAP1')
                MAPSET('DCJB8MM')
           END-EXEC.

           EXEC CICS RETURN
                TRANSID('JB80')
           END-EXEC.


       400-CHOICE-TWO.

           MOVE LOW-VALUES TO MAP1O.

           MOVE 'CHOICE 2 IS NOT AVAILABLE'
               TO MSGO.

           EXEC CICS SEND
                MAP('MAP1')
                MAPSET('DCJB8MM')
           END-EXEC.

           EXEC CICS RETURN
                TRANSID('JB80')
           END-EXEC.

       500-CHOICE-THREE.

           MOVE LOW-VALUES TO MAP1O.

           MOVE 'CHOICE 3 IS NOT AVAILABLE'
               TO MSGO.

           EXEC CICS SEND
                MAP('MAP1')
                MAPSET('DCJB8MM')
           END-EXEC.

           EXEC CICS RETURN
                TRANSID('JB80')
           END-EXEC.

       600-CHOICE-FOUR.

           MOVE LOW-VALUES TO MAP1O.

           MOVE 'CHOICE 4 IS NOT AVAILABLE'
               TO MSGO.

           EXEC CICS SEND
                MAP('MAP1')
                MAPSET('DCJB8MM')
           END-EXEC.

           EXEC CICS RETURN
                TRANSID('JB80')
           END-EXEC.

       900-CHOICE-INVALID.
           MOVE LOW-VALUES TO MAP1O.

           MOVE 'INVALID CHOICE'
               TO MSGO.

           EXEC CICS SEND
                MAP('MAP1')
                MAPSET('DCJB8MM')
           END-EXEC.

           EXEC CICS RETURN
                TRANSID('JB80')
           END-EXEC.

       999-EXIT.
           MOVE LOW-VALUES TO MAP1O.

           MOVE 'APPLICATION ENDING' TO MSGO.

           EXEC CICS SEND
                MAP('MAP1')
                MAPSET('DCJB8MM')
           END-EXEC.

           EXEC CICS RETURN
           END-EXEC.
       END PROGRAM DCJB8PGM.