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 estructuraEVALUATE
que evaluará el valor deDia-Semana
.WHEN 1
: SiDia-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 estructuraEVALUATE
.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.