* corpus charka — nivel 5: EVALUATE, el case de COBOL
IDENTIFICATION DIVISION.
PROGRAM-ID. EVALUAR.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 WS-DIA PIC 9(1) VALUE 0.
PROCEDURE DIVISION.
MAIN.
    PERFORM VARYING WS-DIA FROM 1 BY 1 UNTIL WS-DIA > 5
        EVALUATE WS-DIA
            WHEN 1
                DISPLAY 'LUNES'
            WHEN 2
                DISPLAY 'MARTES'
            WHEN 3
                DISPLAY 'MIERCOLES'
            WHEN 6
            WHEN 7
                DISPLAY 'FIN DE SEMANA'
            WHEN OTHER
                DISPLAY 'OTRO DIA'
        END-EVALUATE
    END-PERFORM.
    STOP RUN.