INSPECT en COBOL

INSPECT lee o reescribe caracteres en el lugar: cuenta los DOT y después parcha la cinta.

IDENTIFICATION DIVISION.
PROGRAM-ID. INSPECT-TALLYING.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 SIGNAL-TAPE  PIC X(20) VALUE "DOT DASH DOT DOT PAD".
01 DOT-COUNT    PIC 99 VALUE 0.
PROCEDURE DIVISION.
*> INSPECT counts or rewrites characters in place.
    INSPECT SIGNAL-TAPE TALLYING DOT-COUNT FOR ALL "DOT"
    DISPLAY "DOT appears " DOT-COUNT " times"
    INSPECT SIGNAL-TAPE REPLACING ALL "PAD" BY "END"
    DISPLAY "Tape now: " SIGNAL-TAPE
    STOP RUN.

Cómo funciona

1. TALLYING DOT-COUNT FOR ALL "DOT" cuenta cada aparición en un campo.
2. El conteo llega sin bucle — un verbo recorre el campo completo.
3. REPLACING ALL "PAD" BY "END" edita la cinta donde está.

Palabras clave y builtins usados aquí

• DATA
• DISPLAY
• DIVISION
• IDENTIFICATION
• INSPECT
• PROCEDURE
• SECTION
• STOP

El intento, en números

Líneas

13

Caracteres a escribir

440

Tokens

53

Ritmo de tres estrellas

40 tpm

Al ritmo de tres estrellas de 40 tokens por minuto, este intento toma unos 80 segundos.

Escribe este fragmento

Paso 3 de 3 en Tablas y cadenas; paso 21 de 27 en Fundamentos del lenguaje.

← Anterior Siguiente →