ACCEPT FROM en COBOL

ACCEPT lee valores del sistema — la fecha y el reloj — sin tocar el teclado.

IDENTIFICATION DIVISION.
PROGRAM-ID. ACCEPT-DATE.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 TODAY-YMD   PIC 9(8).
01 CLOCK-HMS   PIC 9(8).
PROCEDURE DIVISION.
*> ACCEPT FROM reads system values instead of the keyboard.
    ACCEPT TODAY-YMD FROM DATE YYYYMMDD
    ACCEPT CLOCK-HMS FROM TIME
    DISPLAY "Log opened " TODAY-YMD " at " CLOCK-HMS
    STOP RUN.

Cómo funciona

1. Dos campos PIC 9(8) esperan la fecha y la hora.
2. ACCEPT TODAY-YMD FROM DATE YYYYMMDD pide la forma con año de cuatro dígitos.
3. ACCEPT ... FROM TIME entrega horas hasta centésimas, y DISPLAY imprime ambos crudos.

Palabras clave y builtins usados aquí

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

El intento, en números

Líneas

12

Caracteres a escribir

341

Tokens

42

Ritmo de tres estrellas

40 tpm

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

Escribe este fragmento

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

← Anterior Siguiente →