CURRENT-DATE y rebanadas en COBOL

Una sola llamada devuelve el timestamp entero; la modificación de referencia lo rebana.

IDENTIFICATION DIVISION.
PROGRAM-ID. CURRENT-DATE-DEMO.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 NOW-STAMP  PIC X(21).
PROCEDURE DIVISION.
*> CURRENT-DATE returns 21 characters; (start:length) slices them.
    MOVE FUNCTION CURRENT-DATE TO NOW-STAMP
    DISPLAY "Year:  " NOW-STAMP(1:4)
    DISPLAY "Month: " NOW-STAMP(5:2)
    DISPLAY "Clock: " NOW-STAMP(9:2) ":" NOW-STAMP(11:2)
    STOP RUN.

Cómo funciona

1. FUNCTION CURRENT-DATE entrega 21 caracteres: fecha, hora y zona horaria.
2. NOW-STAMP(1:4) es modificación de referencia — posición inicial y largo.
3. Tres rebanadas sacan el año, el mes y el reloj de un mismo campo.

Palabras clave y builtins usados aquí

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

El intento, en números

Líneas

12

Caracteres a escribir

376

Tokens

60

Ritmo de tres estrellas

40 tpm

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

Escribe este fragmento

Paso 2 de 3 en Funciones y llamadas; paso 23 de 27 en Fundamentos del lenguaje.

← Anterior Siguiente →