* corpus charka — nivel 4: PERFORM VARYING, el bucle clásico de COBOL
IDENTIFICATION DIVISION.
PROGRAM-ID. SUMAR.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 WS-I    PIC 9(2) VALUE 0.
01 WS-SUMA PIC 9(5) VALUE 0.
PROCEDURE DIVISION.
MAIN.
    PERFORM VARYING WS-I FROM 1 BY 1 UNTIL WS-I > 10
        ADD WS-I TO WS-SUMA
    END-PERFORM.
    DISPLAY 'SUMA 1 A 10 = ' WS-SUMA.
    STOP RUN.