01 SCORE PIC 999V9.
...
EVALUATE SCORE
WHEN 90.0 THRU 100.0
MOVE 'A' TO GRADE
WHEN 80.0 THRU 89.9
MOVE 'B' TO GRADE
WHEN 70.0 THRU 79.9
MOVE 'C' TO GRADE
WHEN 60.0 THRU 69.9
MOVE 'D' TO GRADE
WHEN 0.0 THRU 59.9
MOVE 'E' TO GRADE
WHEN OTHER
MOVE '?' TO GRADE
END-EVALUATE