Condiciones de nivel 88 en COBOL

El nivel 88 le pone nombre a un valor de dato, para probarlo y fijarlo con SET como una bandera.

IDENTIFICATION DIVISION.
PROGRAM-ID. CONDITION-NAMES.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 LOCK-STATE   PIC X VALUE "C".
   88 LOCK-OPEN    VALUE "O".
   88 LOCK-CLOSED  VALUE "C".
   88 LOCK-FAULTED VALUE "F" "X".
PROCEDURE DIVISION.
*> Level 88 names a condition; SET ... TO TRUE stores its value.
    IF LOCK-CLOSED DISPLAY "Canal gate sealed" END-IF
    SET LOCK-OPEN TO TRUE
    IF LOCK-OPEN DISPLAY "Gate open, tug may pass" END-IF
    STOP RUN.

Cómo funciona

1. Tres entradas 88 nombran los estados de LOCK-STATE; una lista dos valores.
2. IF LOCK-CLOSED se lee como prosa pero prueba LOCK-STATE = "C".
3. SET LOCK-OPEN TO TRUE guarda el valor que hace verdadera la condición.

Palabras clave y builtins usados aquí

• DATA
• DISPLAY
• DIVISION
• IDENTIFICATION
• IF
• PROCEDURE
• SECTION
• SET
• STOP
• TRUE

El intento, en números

Líneas

14

Caracteres a escribir

432

Tokens

56

Ritmo de tres estrellas

40 tpm

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

Escribe este fragmento

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

← Anterior Siguiente →