EVALUATES y REDEFINES - Capítulo 31 - Final

Curso de COBOL desde cero


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

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

Código

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.

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

REDEFINES

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


Suscríbete a mi canal de YouTube para apoyarme

Si te ha gustado este curso y crees que el trabajo merece la pena, te agradeceré eternamente que te suscribas a mi canal de YouTube para apoyarme y que pueda seguir haciendo cursos gratuitos.

Además, si te encanta la programación, tienes un montón más de cursos gratuitos para ver.

No solo eso, podrás participar enviándome comentarios con tus sugerencias para temas específicos o cursos completos o incluso las dudas que tengas y las intentaré ir resolviendo en los cursos que estén todavía abiertos.


Comentarios

Si te quedan dudas sobre el temario, sobre COBOL, o cualquier otra cosa relacionada o simplemente quieres agradecer, aquí tienes tu sitio para dejar tu granito de arena. Gracias por tus comentarios y por darle vida a este sitio web.