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