Elementos de grupo en COBOL

Los números de nivel arman un registro: el 01 es dueño del grupo, los 05 son sus campos.

IDENTIFICATION DIVISION.
PROGRAM-ID. GROUP-ITEMS.
DATA DIVISION.
WORKING-STORAGE SECTION.
*> Levels build records: 01 owns the group, the 05s are its fields.
01 LOG-ENTRY.
   05 LOG-DAY     PIC X(3)  VALUE "Tue".
   05 LOG-WIND    PIC 99    VALUE 18.
   05 LOG-REMARK  PIC X(14) VALUE " gusty at dusk".
PROCEDURE DIVISION.
    DISPLAY "Field by field: " LOG-DAY ", wind " LOG-WIND
*> Naming the group hands over the whole record at once.
    DISPLAY "Whole group: " LOG-ENTRY
    STOP RUN.

Cómo funciona

1. 01 LOG-ENTRY. no tiene picture propia — es la suma de sus partes.
2. Cada campo 05 lleva su propio PIC y VALUE bajo el grupo.
3. Mostrar un campo usa su nombre; mostrar LOG-ENTRY imprime el registro entero.

Palabras clave y builtins usados aquí

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

El intento, en números

Líneas

14

Caracteres a escribir

468

Tokens

50

Ritmo de tres estrellas

40 tpm

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

Escribe este fragmento

Paso 3 de 3 en Pictures; paso 6 de 27 en Fundamentos del lenguaje.

← Anterior Siguiente →