Cláusulas PICTURE en COBOL

La cláusula PIC es el sistema de tipos: 9 para dígitos, X para cualquier cosa, V y S invisibles.

IDENTIFICATION DIVISION.
PROGRAM-ID. PIC-CLAUSES.
DATA DIVISION.
WORKING-STORAGE SECTION.
*> The PICTURE clause is the type system: 9 digit, X any, V decimal.
01 CREW-COUNT   PIC 99      VALUE 12.
01 BERTH-CODE   PIC X(4)    VALUE "C-7A".
01 RATION-KG    PIC 9(2)V99 VALUE 42.75.
01 DEPTH-M      PIC S9(3)   VALUE -180.
PROCEDURE DIVISION.
    DISPLAY "Crew: " CREW-COUNT
    DISPLAY "Berth: " BERTH-CODE
    DISPLAY "Rations: " RATION-KG " held as bare digits"
    DISPLAY "Depth: " DEPTH-M " (the sign rides in the last digit)"
    STOP RUN.

Cómo funciona

1. PIC 99 y PIC X(4) dimensionan un contador y un código, por repetición o con la cuenta entre paréntesis.
2. PIC 9(2)V99 escala 42.75 con un punto decimal implícito que no se almacena.
3. PIC S9(3) conserva un signo, cargado dentro del último dígito en vez de mostrarse.

Palabras clave y builtins usados aquí

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

El intento, en números

Líneas

15

Caracteres a escribir

523

Tokens

59

Ritmo de tres estrellas

35 tpm

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

Escribe este fragmento

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

← Anterior Siguiente →