Hola gente,
Tengo el siguiente código con el que uno se da cuenta que si el usuario introduce por consola "S" o "s" el programa debe devolver una frase por consola. Sin embargo, a mí siempre me termina el programa, meta lo que meta (S, n, números, etc).
¿Qué es lo que está fallando?
Código COBOL:
IDENTIFICATION DIVISION.
PROGRAM-ID. CAPITULO11.
*GO TO salta a donde se le manda, y continua hasta el final
*PERFORM luego de hacer lo que sea, vuelve a donde estaba
DATA DIVISION.
WORKING-STORAGE SECTION.
01 RES pic x.
PROCEDURE DIVISION.
PREGUNTA.
PERFORM CONTINUACION
.
IF RES = "N" OR RES = "n"
GO TO FINALIZA-PROGRAMA
IF RES = "S" OR RES = "s"
perform PROGRAMA
ELSE
DISPLAY " Introduce una 'N' o 'S'"
.
FINALIZA-PROGRAMA.
STOP RUN
.
CONTINUACION.
DISPLAY "Ejecutar el programa (S/N)?"
.
ACCEPT res
.
PROGRAMA.
DISPLAY "Se ejecuta el programa"
.
END PROGRAM CAPITULO11.
He intentado poner todo en mayúsculas, por tonterías que uno prueba vaya, y ni aún así. Igualmente, cambié el perform de PROGRAMA dentro de las cláusulas if-else por un go to pero nada de nada.