Aprendiendo COBOL: La sección LINKAGE en COBOL

Aprendiendo COBOL: La sección LINKAGE

Entendiendo la sección LINKAGE en COBOL

La sección LINKAGE en COBOL se utiliza para compartir datos entre programas o subprogramas. Permite que un programa pase datos a otro programa como argumentos de entrada o salida. Esto es útil cuando necesitas que varios programas compartan información entre sí.

Programa A: Calculadora de Salarios

Supongamos que tenemos un programa COBOL llamado CALC_SALARY que calcula el salario de un empleado. Utilizaremos la sección LINKAGE para recibir los datos del empleado desde otro programa.

IDENTIFICATION DIVISION.
PROGRAM-ID. CALC-SALARY.

DATA DIVISION.
LINKAGE SECTION.
01 EMPLOYEE-LINKAGE.
   05 EMPLOYEE-ID-LINKAGE       PIC X(5).
   05 EMPLOYEE-NAME-LINKAGE     PIC X(30).
   05 HOURS-WORKED-LINKAGE      PIC 9(3).
   05 HOURLY-RATE-LINKAGE       PIC 9(5)V99.

PROCEDURE DIVISION USING EMPLOYEE-LINKAGE.
   DISPLAY "Calculating salary for: " EMPLOYEE-NAME-LINKAGE.
   COMPUTE SALARY = HOURS-WORKED-LINKAGE * HOURLY-RATE-LINKAGE.
   DISPLAY "Salary: " SALARY.
   EXIT PROGRAM.
        

Programa B: Gestión de Nómina

El siguiente programa, GENERATE_PAYROLL, utiliza el Programa A para calcular el salario de un empleado. Proporcionará los datos del empleado a través de la sección LINKAGE y luego mostrará el salario calculado.

IDENTIFICATION DIVISION.
PROGRAM-ID. GENERATE-PAYROLL.

DATA DIVISION.
WORKING-STORAGE SECTION.
01 EMPLOYEE-DETAILS.
   05 EMPLOYEE-ID       PIC X(5) VALUE 'E001'.
   05 EMPLOYEE-NAME     PIC X(30) VALUE 'John Doe'.
   05 HOURS-WORKED      PIC 9(3) VALUE 160.
   05 HOURLY-RATE       PIC 9(5)V99 VALUE 20.50.

PROCEDURE DIVISION.
   CALL 'CALC-SALARY' USING EMPLOYEE-DETAILS.
   DISPLAY "Salary calculated for: " EMPLOYEE-NAME.
   EXIT PROGRAM.
        

En este ejemplo, el Programa B proporciona los datos del empleado a través de la sección LINKAGE al Programa A. Después de que el Programa A calcula el salario, el Programa B muestra el resultado.

Puntos Clave:

• La sección LINKAGE permite la comunicación entre programas COBOL.
• Los datos se pasan de un programa a otro a través de la sección LINKAGE.
• Es importante definir correctamente la estructura de datos en la sección LINKAGE para garantizar que los programas compartan la información de manera efectiva.

¡Ahora estás listo para utilizar la sección LINKAGE en tus programas COBOL para compartir datos entre ellos de manera eficiente!

© 2024 Programar desde Cero