0
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?COBOL Código:
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.
Marcadores