tawasuyu/brahman

1* corpus charka — nivel 5: EVALUATE, el case de COBOL
2IDENTIFICATION DIVISION.
3PROGRAM-ID. EVALUAR.
4DATA DIVISION.
5WORKING-STORAGE SECTION.
601 WS-DIA PIC 9(1) VALUE 0.
7PROCEDURE DIVISION.
8MAIN.
9    PERFORM VARYING WS-DIA FROM 1 BY 1 UNTIL WS-DIA > 5
10        EVALUATE WS-DIA
11            WHEN 1
12                DISPLAY 'LUNES'
13            WHEN 2
14                DISPLAY 'MARTES'
15            WHEN 3
16                DISPLAY 'MIERCOLES'
17            WHEN 6
18            WHEN 7
19                DISPLAY 'FIN DE SEMANA'
20            WHEN OTHER
21                DISPLAY 'OTRO DIA'
22        END-EVALUATE
23    END-PERFORM.
24    STOP RUN.