Campos editados en COBOL

MOVE hacia un campo editado es la manera COBOL de formatear números para personas.

IDENTIFICATION DIVISION.
PROGRAM-ID. EDITED-PICTURES.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 RAW-TOTAL    PIC 9(5)V99 VALUE 1234.5.
01 PRICE-OUT    PIC $$$,$$9.99.
01 STOCK-RAW    PIC 9(4) VALUE 87.
01 STOCK-OUT    PIC Z,ZZ9.
PROCEDURE DIVISION.
*> MOVE into an edited picture formats the digits for people.
    MOVE RAW-TOTAL TO PRICE-OUT
    MOVE STOCK-RAW TO STOCK-OUT
    DISPLAY "Invoice total: " PRICE-OUT
    DISPLAY "On the shelf:  " STOCK-OUT
    STOP RUN.

Cómo funciona

1. $$$,$$9.99 flota el signo de dólar contra el primer dígito e inserta la coma.
2. Z,ZZ9 reemplaza los ceros a la izquierda con espacios, y 87 se imprime como 87 pelado.
3. El MOVE hace el formateo; DISPLAY solo imprime el campo editado.

Palabras clave y builtins usados aquí

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

El intento, en números

Líneas

15

Caracteres a escribir

449

Tokens

54

Ritmo de tres estrellas

35 tpm

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

Escribe este fragmento

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

← Anterior Siguiente →