COBOL DESDE CERO #35

Aprendiendo COBOL: Gestión de Errores y Excepciones

Manejo de Errores en Programas COBOL

En esta lección, exploraremos cómo gestionar errores y excepciones en programas COBOL. Aprenderemos a utilizar las sentencias ON EXCEPTION y CONTINUE para controlar el flujo del programa ante situaciones inesperadas.

IDENTIFICATION DIVISION.
PROGRAM-ID. ManejoErrores.

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

PROCEDURE DIVISION.
    PERFORM DividirNumeros.

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

    STOP RUN.

DividirNumeros SECTION.
    PERFORM VARYING NumeroB FROM 5 BY -1 UNTIL NumeroB = 0
        DIVIDE NumeroA BY NumeroB
            ON SIZE ERROR
                DISPLAY 'Error: División por cero.'
                MOVE 0 TO ResultadoDivision
                EXIT PERFORM
        END-DIVIDE
    END-PERFORM.
        

En este programa, realizamos una división controlada por un bucle y manejamos el error de división por cero utilizando la sentencia ON SIZE ERROR. Si se produce un error, mostramos un mensaje, asignamos cero al resultado y salimos del bucle.

Puntos Destacados:

• La sentencia ON SIZE ERROR se utiliza para capturar errores de tamaño durante operaciones aritméticas.
• La sentencia CONTINUE se utiliza para continuar con la ejecución después de manejar una excepción.

En futuras lecciones, exploraremos estrategias más avanzadas para la gestión de errores y cómo estructurar programas robustos en COBOL. ¡Sigue aprendiendo y disfrutando del viaje!

© 2024 Programar desde Cero