Ejemplo práctico : Comunicación entre Programas

Ejemplo práctico : Comunicación entre Programas

Sección LINKAGE en COBOL

La sección LINKAGE en COBOL se utiliza para definir los parámetros que se pasarán entre programas o entre programas y subrutinas. Esto permite la comunicación de datos entre diferentes partes de un sistema COBOL. Aquí tienes una explicación detallada junto con ejemplos prácticos:

Ejemplo de Paso de Parámetros entre Programas

Supongamos que tenemos dos programas COBOL: uno para realizar la suma y resta de dos números, y otro para mostrar los resultados. El primer programa toma dos números como entrada, realiza las operaciones y pasa los resultados al segundo programa mediante la sentencia CALL.

Programa 1: Suma y Resta de Dos Números

IDENTIFICATION DIVISION.
PROGRAM-ID. SumaResta.

DATA DIVISION.
WORKING-STORAGE SECTION.
01 Numero1     PIC 9(5).
01 Numero2     PIC 9(5).
01 Suma        PIC 9(6).
01 Resta       PIC 9(6).

PROCEDURE DIVISION.
    MOVE 100 TO Numero1.
    MOVE 50 TO Numero2.
    ADD Numero1, Numero2 GIVING Suma.
    SUBTRACT Numero2 FROM Numero1 GIVING Resta.
    CALL 'MuestraResultados' USING Suma, Resta.
    STOP RUN.
        

Programa 2: Muestra los Resultados

IDENTIFICATION DIVISION.
PROGRAM-ID. MuestraResultados.

DATA DIVISION.
LINKAGE SECTION.
01 SumaResultado   PIC 9(6).
01 RestaResultado  PIC 9(6).

PROCEDURE DIVISION USING SumaResultado, RestaResultado.
    DISPLAY 'La suma de los números es: ' SumaResultado.
    DISPLAY 'La resta de los números es: ' RestaResultado.
    STOP RUN.
        

En este ejemplo, el primer programa SumaResta realiza la suma y resta de dos números y luego llama al segundo programa MuestraResultados utilizando la sentencia CALL. Los resultados se pasan como parámetros a través de la sección LINKAGE. Luego, el segundo programa muestra los resultados en la pantalla.

Próximo Paso

Para practicar más la sección LINKAGE en COBOL, podrías diseñar un sistema de gestión de inventario que tenga un programa principal para agregar productos al inventario y otro programa para mostrar los detalles de los productos. Los datos de los productos podrían pasarse entre los programas utilizando la sección LINKAGE.

© 2024 Programar desde Cero