 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’.
