EVALUATES y REDEFINES

Finalmente, llegaste a la meta, a la meta de una carrera que no termina aquí. Este ha sido un curso breve de COBOL, para iniciarse en él, ver como trabaja,algunas de las cosas que puede hacer, etc. Falta mucho por ver, por eso, tengo pensado en un futuro realizar algún curso más de COBOL para seguir aprendiendo. Por el momento, espero que este curso te haya sido práctico, rápido, fácil y divertido.

Si tienes sugerencias para el siguiente curso de COBOL, puedes dejarme un comentario y valoraré tu idea.

Empecemos con el capítulo.

EVALUATE TRUE de COBOL

Un EVALUATE TRUE tiene un gran parecido con un SWITCH de JavaScript, por ejemplo.
Puede facilitar mucho la escritura de condiciones. Veamos un ejemplo:

IDENTIFICATION DIVISION.
PROGRAM-ID. CAPITULO-31.
DATA DIVISION.
FILE SECTION.
WORKING-STORAGE SECTION.
	77 NUM1 PIC 9(5) VALUE 16.
	77 NUM2 PIC 9(5) VALUE 10.
	77 NUM3 PIC 9(5) VALUE 20.
PROCEDURE DIVISION.
MAIN-PROCEDURE.
	EVALUATE TRUE
	WHEN NUM1 = 5
	COMPUTE NUM1 = NUM1 + NUM2 + NUM3
	DISPLAY NUM1

	WHEN NUM1 = 10
	COMPUTE NUM1 = NUM1 * NUM3
	DISPLAY NUM1

	WHEN NUM1 = 15
	COMPUTE NUM1 = NUM2 - NUM3
	DISPLAY NUM1

	WHEN OTHER
	DISPLAY "VALOR NO CONTEMPLADO."

END-EVALUATE.

STOP RUN.
END PROGRAM CAPITULO-31.

Aquí le decimos que evalúe que si la variable NUM1 es igual a 5, 10 o 15 y si se cumple alguna de esas condiciones, que ejecute el bloque correspondiente.
En caso de que tenga algún otro valor, se ejecuta el bloque WHEN OTHER.

Cierra siempre el EVALUATE TRUE con un END-EVALUATE.

REDEFINES de COBOL

Veamos una última cosa antes de terminar con el capítulo.

REDEFINES permite cambiar el tipo de PICTURE.
Es decir, permite cambiar el tipo de dato de una variable.