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:
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
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.
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.
IDE para COBOL en este curso
OpenCobolIDE
Te presento OpenCobolIDE, un IDE gratuito y de código abierto para programar en COBOL. Además es multiplataforma.
El único problema que le podemos encontrar es que se ha dejado de actualizar desde el año 2016, pero por el momento funciona perfecto.
Puedes contactarme para peticiones comerciales y proyectos a mi correo electrónico.
Para dudas sobre el sitio web o sobre alguno de los cursos, puedes dejarme comentarios en la página correspondiente a la duda o en mi canal de YouTube.