Code: Select all
working-storage section.
77 A PIC 9 VALUE IS 1.
:
PROCEDURE DIVISION.
EVALUATE TRUE
WHEN A <2
DISPLAY "CASE2"
WHEN A = 1
DISPLAY "CASE1"
WHEN OTHER
DISPLAY "OTHER"
END-EVALUATE.
Code: Select all
working-storage section.
77 A PIC 9 VALUE IS 1.
:
PROCEDURE DIVISION.
EVALUATE TRUE
WHEN A <2
DISPLAY "CASE2"
WHEN A = 1
DISPLAY "CASE1"
WHEN OTHER
DISPLAY "OTHER"
END-EVALUATE.