WORKING-STORAGE en COBOL

Tres elementos de nivel 01 declaran los datos del faro antes de que corra ninguna sentencia.

IDENTIFICATION DIVISION.
PROGRAM-ID. WORKING-STORAGE-TOUR.
DATA DIVISION.
WORKING-STORAGE SECTION.
*> Level 01 items declare a name, a picture, and often a value.
01 STATION-NAME  PIC X(12) VALUE "Gull Rock".
01 LAMP-TURNS    PIC 9(3)  VALUE 148.
01 OIL-GALLONS   PIC 9(2)V9 VALUE 6.5.
PROCEDURE DIVISION.
    DISPLAY "Station: " STATION-NAME
    DISPLAY "Turns tonight: " LAMP-TURNS
    DISPLAY "Oil on hand: " OIL-GALLONS " (V marks an unseen point)"
    STOP RUN.

Cómo funciona

1. DATA DIVISION. y WORKING-STORAGE SECTION. abren la mitad de datos del programa.
2. Cada 01 empareja un nombre con una picture PIC y un VALUE inicial opcional.
3. 9(2)V9 guarda solo dígitos — la V marca un punto decimal que nunca se escribe.

Palabras clave y builtins usados aquí

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

El intento, en números

Líneas

13

Caracteres a escribir

450

Tokens

48

Ritmo de tres estrellas

40 tpm

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

Escribe este fragmento

Paso 2 de 3 en La forma del programa; paso 2 de 27 en Fundamentos del lenguaje.

← Anterior Siguiente →