COBOL DESDE CERO #17

Aprendiendo COBOL: Manejo de Excepciones y Errores

Gestión Efectiva de Errores en Programas COBOL

En esta lección, nos enfocaremos en el manejo de excepciones y errores en COBOL. Aprenderemos cómo identificar y gestionar situaciones inesperadas, garantizando la robustez de nuestros programas y mejorando la experiencia del usuario.

IDENTIFICATION DIVISION.
PROGRAM-ID. ManejoErrores.

DATA DIVISION.
FILE SECTION.
    FD ArchivoDatos.
    01 RegistroDatos.
        05 Nombre PIC X(30).
        05 Edad PIC 99.
        05 Salario PIC 9(5)V99.

WORKING-STORAGE SECTION.
    01 SalarioMinimo CONSTANT 1500.00.

PROCEDURE DIVISION.
    OPEN INPUT ArchivoDatos.

    PERFORM UNTIL EOF-ArchivoDatos
        READ ArchivoDatos INTO RegistroDatos
            AT END SET EOF-ArchivoDatos TO TRUE
        NOT AT END
            PERFORM PROCESAR-REGISTRO
        END-READ
    END-PERFORM.

    CLOSE ArchivoDatos.

    STOP RUN.

PROCEDIMIENTO DIVISION.
PROCESAR-REGISTRO.

    IF Edad < 18
        DISPLAY 'Error: Menor de Edad - ', Nombre
    END-IF.

    IF Salario < SalarioMinimo
        MOVE 'Ajuste Salarial Aplicado' TO Mensaje
        DISPLAY 'Advertencia: Salario Bajo - ', Nombre, ' - ', Mensaje
    END-IF.

    MOVE RegistroDatos TO RegistroSalida
    WRITE RegistroSalida.

    EXIT.

En este programa, gestionamos errores mediante la identificación de condiciones inesperadas, como la edad de un empleado menor de 18 años o un salario inferior al mínimo requerido. Estas técnicas son esenciales para garantizar la integridad de los datos y mejorar la robustez de los programas COBOL.

Puntos Destacados:

• Usamos la cláusula AT END para manejar el final del archivo.
• La sección PROCEDIMIENTO DIVISION contiene la lógica de procesamiento del registro.
• El uso de EXIT asegura que el control regrese a la sección principal después de procesar un registro.

En futuras lecciones, exploraremos técnicas avanzadas de manejo de errores y estrategias para mejorar la eficiencia y la fiabilidad de los programas COBOL. ¡Sigue aprendiendo y disfrutando del viaje!