Booleans in COBOL
12345678910111213141516171819202122232425262728293031323334353637383940
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 "----------------------------------------"
.
Cobol
INFO