       IDENTIFICATION DIVISION.
       PROGRAM-ID.  Conditon.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01  VARIABLES.
           05  A              PIC X.
           05  B              PIC X.
           05  C              PIC X.
           05  D              PIC X.
           05  E              PIC X.
           05  F              PIC X.
           05  X              PIC X.
           05  MO             PIC XX.
           88  EVEN-MONTH VALUE '02' '04' '06' '08' '10' '12'.
       PROCEDURE DIVISION.
       0000-MAIN.
           PERFORM 0100-IF-TEST
               TEST AFTER
               UNTIL A = 'Z'.
           STOP RUN.
       0100-IF-TEST.
           DISPLAY 'ENTER VALUES ABCDEFXMO WITH A = Z TO QUIT'.
           ACCEPT VARIABLES.
           IF A NOT = 'Z'
               DISPLAY 'VALUES ENTERED WERE: ' VARIABLES
               PERFORM 0200-COMPARE.

       0200-COMPARE.
           IF ((D = E
                AND (A > B
                     OR (A < C
                         AND A = F))))
               DISPLAY 'D=E AND (A>B OR A<C AND A=F) IS TRUE'
           ELSE
               DISPLAY 'D=E AND (A>B OR A<C AND A=F) IS FALSE'.

           IF (A = B
                AND (NOT (X NUMERIC
                          OR EVEN-MONTH)))
               DISPLAY 'A=B AND NOT (X NUMERIC OR EVEN-MONTH) IS TRUE'
           ELSE
               DISPLAY 'A=B AND NOT (X NUMERIC OR EVEN-MONTH) IS FALSE'.

           IF ((D = E
                AND (A > B
                     OR (A < C
                         AND A = F)))
              OR (A = B
                  AND (NOT (X NUMERIC
                            OR EVEN-MONTH))))
               DISPLAY 'FULL STATEMENT TRUE'
           ELSE
               DISPLAY 'FULL STATEMENT FALSE'.
