Párrafos o rutinas con GO TO - Capítulo 11

Curso de COBOL desde cero


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.

Código

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.

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.