xxxxxxxxxx
identification division.
program-id. programEVALUTETRUR.
data division.
working-storage section.
01 AGE PIC 9(2).
88 BEBE VALUE 0 THRU 3.
88 ENFANT VALUE 4 THRU 12.
88 ADO VALUE 13 THRU 18.
procedure division.
1000-MAIN.
PERFORM INIT
PERFORM TRT
goback.
INIT.
MOVE 2 TO AGE.
TRT.
EVALUATE TRUE
WHEN BEBE
DISPLAY "BEBE"
WHEN ENFANT
DISPLAY "ENFANT"
WHEN OTHER
DISPLAY "OTHER"
end-evaluate.