Tablas OCCURS en COBOL

OCCURS convierte una picture en una tabla de mareas de cinco casillas, con subíndices desde 1.

IDENTIFICATION DIVISION.
PROGRAM-ID. OCCURS-TABLES.
DATA DIVISION.
WORKING-STORAGE SECTION.
*> OCCURS turns one picture into a table; subscripts start at 1.
01 TIDE-TABLE.
   05 TIDE-FT  PIC 9V9 OCCURS 5 TIMES.
01 SLOT      PIC 9.
01 SHOW-FT   PIC 9.9.
PROCEDURE DIVISION.
    MOVE 2.1 TO TIDE-FT(1)  MOVE 3.4 TO TIDE-FT(2)
    MOVE 4.8 TO TIDE-FT(3)  MOVE 3.9 TO TIDE-FT(4)
    MOVE 2.6 TO TIDE-FT(5)
    PERFORM VARYING SLOT FROM 1 BY 1 UNTIL SLOT > 5
        MOVE TIDE-FT(SLOT) TO SHOW-FT
        DISPLAY "Reading " SLOT ": " SHOW-FT " ft"
    END-PERFORM
    STOP RUN.

Cómo funciona

1. PIC 9V9 OCCURS 5 TIMES declara cinco lecturas bajo un solo grupo.
2. Cinco MOVE llenan TIDE-FT(1) a TIDE-FT(5) por subíndice.
3. PERFORM VARYING SLOT recorre la tabla y formatea cada lectura vía 9.9.

Palabras clave y builtins usados aquí

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

El intento, en números

Líneas

18

Caracteres a escribir

529

Tokens

98

Ritmo de tres estrellas

35 tpm

Al ritmo de tres estrellas de 35 tokens por minuto, este intento toma unos 168 segundos.

Escribe este fragmento

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

← Anterior Siguiente →