INITIALIZE en COBOL

Un solo INITIALIZE limpia un registro entero: números a cero, texto a espacios.

IDENTIFICATION DIVISION.
PROGRAM-ID. INITIALIZE-FIELDS.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 TALLY-CARD.
   05 GOOD-CRATES  PIC 999  VALUE 42.
   05 BAD-CRATES   PIC 999  VALUE 3.
   05 GRADE-STAMP  PIC X(5) VALUE "AA-1".
PROCEDURE DIVISION.
    DISPLAY "Before: " GOOD-CRATES " " BAD-CRATES " " GRADE-STAMP
*> INITIALIZE resets numbers to zero and text to spaces.
    INITIALIZE TALLY-CARD
    DISPLAY "After:  " GOOD-CRATES " " BAD-CRATES " " GRADE-STAMP
    STOP RUN.

Cómo funciona

1. El grupo TALLY-CARD arranca con valores vivos en sus tres campos.
2. El primer DISPLAY deja constancia del estado inicial.
3. INITIALIZE TALLY-CARD reinicia por categoría — numérico a ceros, alfanumérico a espacios.

Palabras clave y builtins usados aquí

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

El intento, en números

Líneas

14

Caracteres a escribir

451

Tokens

57

Ritmo de tres estrellas

40 tpm

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

Escribe este fragmento

Paso 2 de 3 en Mover datos; paso 8 de 27 en Fundamentos del lenguaje.

← Anterior Siguiente →