tawasuyu/brahman

1* corpus charka — nivel 6: EVALUATE TRUE y rangos WHEN ... THRU
2IDENTIFICATION DIVISION.
3PROGRAM-ID. CLASIFICA.
4DATA DIVISION.
5WORKING-STORAGE SECTION.
601 WS-NOTA PIC 9(3) VALUE 0.
701 WS-I    PIC 9(2) VALUE 0.
8PROCEDURE DIVISION.
9MAIN.
10    PERFORM VARYING WS-I FROM 1 BY 1 UNTIL WS-I > 5
11        COMPUTE WS-NOTA = WS-I * 18
12        EVALUATE WS-NOTA
13            WHEN 0 THRU 59
14                DISPLAY 'REPROBADO'
15            WHEN 60 THRU 89
16                DISPLAY 'APROBADO'
17            WHEN OTHER
18                DISPLAY 'EXCELENTE'
19        END-EVALUATE
20    END-PERFORM.
21    PERFORM EVAL-TRUE.
22    STOP RUN.
23EVAL-TRUE.
24    EVALUATE TRUE
25        WHEN WS-NOTA > 100
26            DISPLAY 'ULTIMA NOTA ALTA'
27        WHEN OTHER
28            DISPLAY 'ULTIMA NOTA NO ALTA'
29    END-EVALUATE.