GO TO nos sirve al igual que PERFORM para manejar el flujo de ejecución de COBOL.
La diferencia fundamental entre estos dos es que el PERFORM una vez termina de ejecutar una rutina vuelve a la línea inmediata a el y sigue el flujo de ejecución normal. El GO TO viaja a la rutina, con la diferencia que no vuelve para atrás.
IDENTIFICATION DIVISION.
PROGRAM-ID. CAPITULO-11.
DATA DIVISION.
FILE SECTION.
WORKING-STORAGE SECTION.
01 SI-O-NO PIC X.
PROCEDURE DIVISION.
PREGUNTA.
PERFORM CONTINUACION.
IF SI-O-NO = "N" OR SI-O-NO = "n"
GO TO FINALIZA-PROGRAMA.
IF SI-O-NO = "S" OR SI-O-NO = "s"
PERFORM PROGRAMA
ELSE
DISPLAY "Por favor, introduce una 'N' o una 'S'.".
FINALIZA-PROGRAMA.
STOP RUN.
CONTINUACION.
DISPLAY "¿Ejecutar el programa (S/N)?".
ACCEPT SI-O-NO.
PROGRAMA.
DISPLAY "Se ejecuta el programa.".
END PROGRAM CAPITULO-11.
Resultado
Si el usuario introduce una s mayúscula o minúscula, el programa se ejecuta:
Se ejecuta el programa.
Evidentemente, el DISPLAY va a representar un bloque de código que escribas en su lugar, esto es solo para realizar pruebas.
Si el usuario introduce una n mayúscula o minúscula, el programa finaliza y la consola no devuelve nada.
Finalmente, si el usuario no introduce nada o un valor erróneo, se le indica que debe introducir una S o una N.
Por favor, introduce una 'N' o una 'S'.
Si no te queda claro el uso del programa o de la diferencia entre PERFORM y GO TO, puedes ver el vídeo de este capítulo o dejarme un comentario.
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.