* corpus charka — nivel 6: INSPECT (contar y reemplazar)
IDENTIFICATION DIVISION.
PROGRAM-ID. INSPECCION.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 WS-TEXTO  PIC X(15) VALUE 'BANANA-MANZANA'.
01 WS-CUENTA PIC 9(3)  VALUE 0.
PROCEDURE DIVISION.
MAIN.
    INSPECT WS-TEXTO TALLYING WS-CUENTA FOR ALL 'A'.
    DISPLAY 'LETRAS A = ' WS-CUENTA.
    INSPECT WS-TEXTO REPLACING ALL 'A' BY 'O'.
    DISPLAY 'TEXTO = ' WS-TEXTO.
    STOP RUN.