BlogCOBOL

EVALUATE – Programación COBOL

El uso de EVALUATE en COBOL es similar a una declaración CASE en otros lenguajes de programación. Permite evaluar una expresión y realizar acciones específicas según el valor de esa expresión. Aquí tienes un ejemplo simple de un programa COBOL que utiliza EVALUATE:

Ejemplo de programa

IDENTIFICATION DIVISION.
PROGRAM-ID. ProgramaConEvaluate.
AUTHOR. TuNombre.
DATE-WRITTEN. DD/MM/AAAA.

DATA DIVISION.
WORKING-STORAGE SECTION.
01 Dia-Semana PIC 9 VALUE 3.

PROCEDURE DIVISION.
    DISPLAY 'Ingrese el día de la semana (1-7): '.
    ACCEPT Dia-Semana FROM CONSOLE.

    EVALUATE Dia-Semana
        WHEN 1
            DISPLAY 'Es lunes.'
        WHEN 2
            DISPLAY 'Es martes.'
        WHEN 3
            DISPLAY 'Es miércoles.'
        WHEN 4
            DISPLAY 'Es jueves.'
        WHEN 5
            DISPLAY 'Es viernes.'
        WHEN 6
            DISPLAY 'Es sábado.'
        WHEN 7
            DISPLAY 'Es domingo.'
        WHEN OTHER
            DISPLAY 'Número de día no válido.'
    END-EVALUATE.

    STOP RUN.

WORKING – STORAGE SECTION

Dia-Semana: Variable que almacena el número correspondiente al día de la semana.

PROCEDURE DIVISION

  • DISPLAY 'Ingrese el día de la semana (1-7):': Muestra un mensaje solicitando al usuario ingresar el número correspondiente al día de la semana.
  • ACCEPT Dia-Semana FROM CONSOLE.: Lee la entrada del usuario.
  • EVALUATE Dia-Semana: Inicia la estructura EVALUATE que evaluará el valor de Dia-Semana.
    • WHEN 1: Si Dia-Semana es igual a 1, se ejecuta la siguiente línea.
      • DISPLAY 'Es lunes.': Muestra un mensaje indicando que es lunes.
    • WHEN 2, WHEN 3, …, WHEN 7: Realiza acciones similares para los demás días de la semana.
    • WHEN OTHER: Si ninguna de las condiciones anteriores se cumple, se ejecuta esta línea.
      • DISPLAY 'Número de día no válido.': Muestra un mensaje indicando que el número de día no es válido.
  • END-EVALUATE: Indica el final de la estructura EVALUATE.
  • STOP RUN: Marca el final del programa.

En este ejemplo, el programa solicita al usuario ingresar un número del 1 al 7 representando un día de la semana. Luego, utiliza EVALUATE para mostrar el nombre del día correspondiente o un mensaje de error si el número ingresado no es válido.

Deja una respuesta

Tu dirección de correo electrónico no será publicada. Los campos obligatorios están marcados con *