xxxxxxxxxx
identification division.
program-id. programEVALUTETRUR.
data division.
working-storage section.
01 MANEGE PIC 9(3).
88 OK VALUE 50 THRU 170.
88 KO VALUE 171 THRU 240.
procedure division.
MAIN.
PERFORM INIT
PERFORM TRT
STOP RUN.
INIT.
MOVE 200 TO MANEGE.
TRT.
IF OK
DISPLAY " YOU CAN USE A MANEGE"
ELSE
IF KO
DISPLAY "YOU CAN NOT USE THE MANEGE"
END-IF
END-IF.