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.