COBOL DESDE CERO #29

Aprendiendo COBOL: Gestión de Errores y Excepciones

Manejando Situaciones Inesperadas en COBOL

En esta lección, nos adentraremos en la gestión de errores y excepciones en COBOL. Aprenderemos cómo identificar y manejar situaciones inesperadas para asegurar la robustez de nuestros programas.

IDENTIFICATION DIVISION.
PROGRAM-ID. GestionErrores.

DATA DIVISION.
WORKING-STORAGE SECTION.
    01 NumeroA            PIC 9(3) VALUE 150.
    01 NumeroB            PIC 9(3) VALUE 0.
    01 ResultadoDivision  PIC 9(4).

PROCEDURE DIVISION.
    PERFORM DividirNumeros USING NumeroA, NumeroB, ResultadoDivision
        ON EXCEPTION
            DISPLAY 'Error: División por cero.'
            MOVE 9999 TO ResultadoDivision
    END-PERFORM.

    DISPLAY 'Resultado de la división: ', ResultadoDivision.

    STOP RUN.

DividirNumeros SECTION USING AVAL BVAL RESULT.
    DIVIDE AVAL BY BVAL GIVING RESULT
        ON SIZE ERROR
            DISPLAY 'Error: Desbordamiento aritmético.'
        ON ZERO DIVIDE
            DISPLAY 'Error: División por cero.'
    END-DIVIDE.
    EXIT.
        

En este programa, creamos una subrutina llamada DividirNumeros que intenta dividir dos números. Hemos agregado manejo de errores para tratar situaciones como la división por cero o el desbordamiento aritmético.

Puntos Destacados:

• La cláusula ON EXCEPTION nos permite manejar excepciones específicas.
• Las cláusulas ON SIZE ERROR y ON ZERO DIVIDE se utilizan para manejar condiciones específicas de error.
• El manejo de errores mejora la robustez del programa y proporciona información útil en caso de fallos.

En futuras lecciones, exploraremos casos más avanzados de manejo de errores y técnicas para construir programas más resilientes en COBOL. ¡Sigue aprendiendo y disfrutando del viaje!

© 2024 Programar desde Cero