[Kuk]

@DestinedBroken, ya no hay errores. Fíjate en los puntos:

       IDENTIFICATION DIVISION.
       PROGRAM-ID. CAPITULO11.
      *GO TO salta a donde se le manda, y continua hasta el final
      *no recomendado -> codigo spaghetti!
      *PERFORM luego de hacer lo que sea, vuelve a donde estaba
      *usarlo en vez de GO TO!
       DATA DIVISION.
  
       WORKING-STORAGE SECTION.
       01 RES pic x.
       
           
       PROCEDURE DIVISION.
  
       PREGUNTA.
  
           PERFORM CONTINUACION
           
  
           IF RES = "N" OR RES = "n"
               PERFORM FINALIZA-PROGRAMA
           END-IF
           
           IF RES = "S" OR RES = "s"
               PERFORM PROGRAMA
               
           ELSE
               DISPLAY " Introduce una 'N' o 'S'"
           END-IF
           .
           
       FINALIZA-PROGRAMA.
           STOP RUN
           .
           
  
       CONTINUACION.
           DISPLAY "Ejecutar el programa (S/N)?"
           
           ACCEPT res
           .
           
       PROGRAMA.
           DISPLAY "Se ejecuta el programa"
           .
           
       END PROGRAM CAPITULO11.