* corpus charka — nivel 5: PERFORM ... THRU (rango de párrafos)
IDENTIFICATION DIVISION.
PROGRAM-ID. RANGOPAR.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 WS-X PIC 9(3) VALUE 0.
PROCEDURE DIVISION.
MAIN.
    PERFORM PASO-A THRU PASO-C.
    DISPLAY 'X FINAL = ' WS-X.
    STOP RUN.
PASO-A.
    ADD 1 TO WS-X.
    DISPLAY 'PASO A'.
PASO-B.
    ADD 10 TO WS-X.
    DISPLAY 'PASO B'.
PASO-C.
    ADD 100 TO WS-X.
    DISPLAY 'PASO C'.