El uso de GO TO en COBOL
Capítulo 11: Párrafos o rutinas con GO TO
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.
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.