COBOL DESDE CERO #8

Aprendiendo COBOL: Manejo de Errores y Excepciones

Entendiendo el Manejo de Errores en COBOL

En esta lección, exploraremos cómo manejar errores y excepciones en tus programas COBOL. El manejo adecuado de errores es crucial para crear aplicaciones robustas y confiables.

IDENTIFICATION DIVISION.
PROGRAM-ID. ManejoErrores.

DATA DIVISION.
WORKING-STORAGE SECTION.
    01 NumeroEntrada PIC 9(3).
    01 Resultado PIC 9(3).

PROCEDURE DIVISION.
    DISPLAY 'Ingrese un número: '.
    ACCEPT NumeroEntrada.

    PERFORM VALIDAR-NUMERO.

    DISPLAY 'El resultado es: ', Resultado.
    STOP RUN.

VALIDAR-NUMERO.
    IF NumeroEntrada NOT NUMERIC
        DISPLAY 'Error: Ingrese un número válido.'
        MOVE 0 TO Resultado
        STOP RUN
    ELSE
        MOVE NumeroEntrada TO Resultado
    END-IF.
        

En este programa, pedimos al usuario que ingrese un número, y luego llamamos a la subrutina VALIDAR-NUMERO para asegurarnos de que la entrada sea válida antes de continuar. Si el usuario ingresa algo que no es un número, mostramos un mensaje de error y detenemos la ejecución del programa.

Puntos Destacados:

• La subrutina VALIDAR-NUMERO se utiliza para verificar si la entrada es un número válido.
• El uso de la condición NOT NUMERIC nos permite detectar si la entrada no es un número.
• El manejo adecuado de errores garantiza que el programa no falle inesperadamente y proporciona mensajes claros al usuario.

En futuras lecciones, exploraremos estrategias más avanzadas para el manejo de errores y cómo implementar la tolerancia a fallos en programas COBOL. ¡Sigue aprendiendo y disfrutando del viaje!