Funciones intrínsecas en COBOL

Las llamadas FUNCTION calculan un valor justo donde iría un campo.

IDENTIFICATION DIVISION.
PROGRAM-ID. INTRINSIC-FUNCTIONS.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 RAW-ORDER   PIC X(14) VALUE "twelve anchors".
01 LOUD-ORDER  PIC X(14).
01 PRICE-TEXT  PIC X(6) VALUE "417.25".
01 PRICE-NUM   PIC 9(3)V99.
01 PRICE-SHOW  PIC ZZ9.99.
PROCEDURE DIVISION.
*> FUNCTION calls compute a value right where a field would sit.
    MOVE FUNCTION UPPER-CASE(RAW-ORDER) TO LOUD-ORDER
    COMPUTE PRICE-NUM = FUNCTION NUMVAL(PRICE-TEXT)
    MOVE PRICE-NUM TO PRICE-SHOW
    DISPLAY LOUD-ORDER " at " PRICE-SHOW
    STOP RUN.

Cómo funciona

1. FUNCTION UPPER-CASE(RAW-ORDER) grita el pedido dentro de un MOVE.
2. FUNCTION NUMVAL(PRICE-TEXT) convierte texto en un número que COMPUTE puede usar.
3. La picture editada ZZ9.99 devuelve el punto decimal para imprimir.

Palabras clave y builtins usados aquí

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

El intento, en números

Líneas

16

Caracteres a escribir

526

Tokens

68

Ritmo de tres estrellas

35 tpm

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

Escribe este fragmento

Paso 1 de 3 en Funciones y llamadas; paso 22 de 27 en Fundamentos del lenguaje.

← Anterior Siguiente →