Booleans in COBOL

       IDENTIFICATION DIVISION.
       PROGRAM-ID. boolean.

       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01 location                          PIC 9(4).
           88 dist-center                   VALUE 100, 101, 102.
           88 customer                      VALUE 1 THRU 99.

       PROCEDURE DIVISION.
       main-para.
           SET dist-center TO TRUE
           PERFORM dump-para

           SET customer TO TRUE
           PERFORM dump-para

           MOVE 101 TO location
           PERFORM dump-para

           MOVE 80 TO location
           PERFORM dump-para

           MOVE 1000 TO location
           PERFORM dump-para

           GOBACK
           .

        dump-para.
           DISPLAY "Location is " location
           EVALUATE TRUE
               WHEN dist-center
                   DISPLAY "Location is dist center"
               WHEN customer
                   DISPLAY "Location is customer"
           END-EVALUATE
           DISPLAY "----------------------------------------"
           .