COBOL DESDE CERO #28

Aprendiendo COBOL: Uso de Subrutinas y Procedimientos

Optimizando tu Código COBOL con Subrutinas

En esta lección, exploraremos el uso de subrutinas y procedimientos en COBOL para modularizar y optimizar nuestro código. Aprenderemos cómo dividir tareas complejas en partes más pequeñas y fácilmente gestionables.

IDENTIFICATION DIVISION.
PROGRAM-ID. UsoSubrutinas.

DATA DIVISION.
WORKING-STORAGE SECTION.
    01 ValorA             PIC 9(3) VALUE 75.
    01 ValorB             PIC 9(3) VALUE 25.
    01 ResultadoSuma      PIC 9(4).
    01 ResultadoResta     PIC 9(4).

PROCEDURE DIVISION.
    PERFORM SumarValores USING ValorA, ValorB, ResultadoSuma.
    PERFORM RestarValores USING ValorA, ValorB, ResultadoResta.

    DISPLAY 'Resultado de la suma: ', ResultadoSuma.
    DISPLAY 'Resultado de la resta: ', ResultadoResta.

    STOP RUN.

SumarValores SECTION USING AVAL BVAL RESULT.
    ADD AVAL TO BVAL GIVING RESULT.
    EXIT.

RestarValores SECTION USING AVAL BVAL RESULT.
    SUBTRACT BVAL FROM AVAL GIVING RESULT.
    EXIT.
        

En este programa, creamos dos subrutinas, SumarValores y RestarValores, para realizar operaciones de suma y resta respectivamente. Luego, llamamos a estas subrutinas desde la sección principal del programa.

Puntos Destacados:

• Las subrutinas se definen en la sección PROCEDURE DIVISION y se llaman mediante la instrucción PERFORM.
• Los parámetros se pasan utilizando la cláusula USING.
• Las subrutinas pueden mejorar la legibilidad y mantenibilidad del código al dividir tareas en bloques más pequeños.

En futuras lecciones, exploraremos casos más avanzados de uso de subrutinas y procedimientos, así como estrategias para organizar y estructurar programas más complejos en COBOL. ¡Sigue aprendiendo y disfrutando del viaje!

© 2024 Programar desde Cero