EVALUATE en COBOL

EVALUATE es el switch de COBOL: un sujeto, un WHEN por código de carga, OTHER para el resto.

IDENTIFICATION DIVISION.
PROGRAM-ID. EVALUATE-WHEN.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 CARGO-CODE  PIC X VALUE "G".
PROCEDURE DIVISION.
*> EVALUATE is the switch: WHEN takes values, ranges, or OTHER.
    EVALUATE CARGO-CODE
        WHEN "G" DISPLAY "General cargo: any hold"
        WHEN "R" DISPLAY "Reefer: plug it in"
        WHEN "H" DISPLAY "Hazmat: deck stowage only"
        WHEN OTHER DISPLAY "Unknown code, hold the manifest"
    END-EVALUATE
    STOP RUN.

Cómo funciona

1. EVALUATE CARGO-CODE nombra el sujeto una sola vez.
2. Cada brazo WHEN "G" empareja un valor con su sentencia.
3. WHEN OTHER atrapa los códigos desconocidos, y END-EVALUATE cierra el alcance.

Palabras clave y builtins usados aquí

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

El intento, en números

Líneas

14

Caracteres a escribir

429

Tokens

45

Ritmo de tres estrellas

40 tpm

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

Escribe este fragmento

Paso 2 de 3 en Condiciones; paso 14 de 27 en Fundamentos del lenguaje.

← Anterior Siguiente →