COBOL DESDE CERO #9

Aprendiendo COBOL: Subprogramas y Modularidad

Mejorando la Estructura con Subprogramas en COBOL

En esta lección, vamos a explorar el uso de subprogramas en COBOL para mejorar la modularidad y la estructura de nuestros programas. Los subprogramas permiten dividir el código en unidades más pequeñas y fáciles de entender.

IDENTIFICATION DIVISION.
PROGRAM-ID. ProgramaPrincipal.

DATA DIVISION.
WORKING-STORAGE SECTION.
    01 NumeroA PIC 9(3) VALUE 50.
    01 NumeroB PIC 9(3) VALUE 30.
    01 Resultado PIC 9(4).

PROCEDURE DIVISION.
    PERFORM CALCULAR-SUMA THRU CALCULAR-DIVISION.

    DISPLAY 'El resultado de la suma es: ', Resultado.
    STOP RUN.

CALCULAR-SUMA.
    ADD NumeroA TO NumeroB GIVING Resultado.

CALCULAR-RESTA.
    SUBTRACT NumeroB FROM NumeroA GIVING Resultado.

CALCULAR-MULTIPLICACION.
    MULTIPLY NumeroA BY NumeroB GIVING Resultado.

CALCULAR-DIVISION.
    DIVIDE NumeroA BY NumeroB GIVING Resultado.
        

En este programa, hemos creado cuatro subprogramas (CALCULAR-SUMA, CALCULAR-RESTA, CALCULAR-MULTIPLICACION, CALCULAR-DIVISION) que realizan operaciones matemáticas específicas. El programa principal invoca estos subprogramas para realizar una serie de cálculos.

Puntos Destacados:

• Los subprogramas se definen utilizando la cláusula PERFORM.
• La estructura del código se vuelve más clara y modular gracias al uso de subprogramas.
• Cada subprograma se centra en una tarea específica, facilitando el mantenimiento y la comprensión del código.

En futuras lecciones, exploraremos más sobre el uso avanzado de subprogramas y cómo pueden mejorar la calidad y mantenibilidad de tus programas COBOL. ¡Sigue aprendiendo y disfrutando del viaje!