* corpus charka — nivel 6: EVALUATE TRUE y rangos WHEN ... THRU
IDENTIFICATION DIVISION.
PROGRAM-ID. CLASIFICA.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 WS-NOTA PIC 9(3) VALUE 0.
01 WS-I    PIC 9(2) VALUE 0.
PROCEDURE DIVISION.
MAIN.
    PERFORM VARYING WS-I FROM 1 BY 1 UNTIL WS-I > 5
        COMPUTE WS-NOTA = WS-I * 18
        EVALUATE WS-NOTA
            WHEN 0 THRU 59
                DISPLAY 'REPROBADO'
            WHEN 60 THRU 89
                DISPLAY 'APROBADO'
            WHEN OTHER
                DISPLAY 'EXCELENTE'
        END-EVALUATE
    END-PERFORM.
    PERFORM EVAL-TRUE.
    STOP RUN.
EVAL-TRUE.
    EVALUATE TRUE
        WHEN WS-NOTA > 100
            DISPLAY 'ULTIMA NOTA ALTA'
        WHEN OTHER
            DISPLAY 'ULTIMA NOTA NO ALTA'
    END-EVALUATE.