⎇ 7867d6830e128b8a2afe95cb752093e12a184988
crates/modules/charka/corpus/08-varying.cob
Ñawpa willay
ch'uya
feat(charka): PERFORM VARYING — el bucle con variable de control
1* corpus charka — nivel 4: PERFORM VARYING, el bucle clásico de COBOL
2IDENTIFICATION DIVISION.
3PROGRAM-ID. SUMAR.
4DATA DIVISION.
5WORKING-STORAGE SECTION.
601 WS-I PIC 9(2) VALUE 0.
701 WS-SUMA PIC 9(5) VALUE 0.
8PROCEDURE DIVISION.
9MAIN.
10 PERFORM VARYING WS-I FROM 1 BY 1 UNTIL WS-I > 10
11 ADD WS-I TO WS-SUMA
12 END-PERFORM.
13 DISPLAY 'SUMA 1 A 10 = ' WS-SUMA.
14 STOP RUN.