COBOL DESDE CERO #32

Aprendiendo COBOL: Subprogramas y Llamadas a Programas Externos

Organizando Código con Subprogramas

En esta lección, exploraremos cómo utilizar subprogramas y realizar llamadas a programas externos en COBOL. Aprenderemos a organizar nuestro código de manera más eficiente y a reutilizar lógica mediante la creación de subprogramas.

IDENTIFICATION DIVISION.
PROGRAM-ID. LlamadaSubprograma.

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

PROCEDURE DIVISION.
    PERFORM SumarNumeros USING NumeroA, NumeroB, ResultadoSuma.

    DISPLAY 'Resultado de la suma: ', ResultadoSuma.

    STOP RUN.

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

En este programa, hemos creado un subprograma llamado SumarNumeros que realiza la operación de suma. Luego, en la sección principal del programa, llamamos a este subprograma para sumar dos números.

Puntos Destacados:

• Los subprogramas 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.
• La utilización de subprogramas mejora la modularidad y reutilización del código.

En futuras lecciones, exploraremos casos más avanzados de subprogramas y técnicas para organizar grandes proyectos en COBOL. ¡Sigue aprendiendo y disfrutando del viaje!

© 2024 Programar desde Cero