Aprendiendo COBOL: Cursores II

Aprendiendo COBOL: Cursores con Oracle

Cursores en COBOL para tablas Oracle

En COBOL, puedes utilizar cursores para interactuar con tablas Oracle. Aquí tienes una explicación detallada sobre cómo utilizar cursores con diferentes conjuntos de datos:

Cursor 1: Empleados

Primero, declaramos un cursor para la tabla de empleados en Oracle:

DATA DIVISION.
WORKING-STORAGE SECTION.

01 EMPLOYEE-CURSOR.
   05 EMPLOYEE-ID       PIC 9(5).
   05 EMPLOYEE-NAME     PIC X(20).
   05 EMPLOYEE-SALARY   PIC 9(6)V99.
        

Este cursor nos permitirá acceder a los datos de la tabla de empleados.

Cursor 2: Departamentos

Luego, declaramos otro cursor para la tabla de departamentos en Oracle:

01 DEPARTMENT-CURSOR.
   05 DEPARTMENT-ID       PIC 9(3).
   05 DEPARTMENT-NAME     PIC X(30).
   05 DEPARTMENT-LOCATION PIC X(50).
        

Este cursor nos permitirá acceder a los datos de la tabla de departamentos.

Uso de los cursores

Una vez declarados los cursores, podemos abrirlos, recorrerlos y manipular los datos según sea necesario:

PROCEDURE DIVISION.
    OPEN EMPLOYEE-CURSOR.
    PERFORM UNTIL SQLCODE NOT = 0
        FETCH EMPLOYEE-CURSOR INTO :EMPLOYEE-ID, :EMPLOYEE-NAME, :EMPLOYEE-SALARY
        IF SQLCODE NOT = 0
            DISPLAY 'Empleado: ' EMPLOYEE-NAME ' - Salario: ' EMPLOYEE-SALARY
        END-IF
    END-PERFORM.
    CLOSE EMPLOYEE-CURSOR.

    OPEN DEPARTMENT-CURSOR.
    PERFORM UNTIL SQLCODE NOT = 0
        FETCH DEPARTMENT-CURSOR INTO :DEPARTMENT-ID, :DEPARTMENT-NAME, :DEPARTMENT-LOCATION
        IF SQLCODE NOT = 0
            DISPLAY 'Departamento: ' DEPARTMENT-NAME ' - Ubicación: ' DEPARTMENT-LOCATION
        END-IF
    END-PERFORM.
    CLOSE DEPARTMENT-CURSOR.
        

En este código, estamos abriendo y recorriendo los cursores de empleados y departamentos, mostrando sus datos en cada iteración.

Los cursores en COBOL son una herramienta poderosa para interactuar con bases de datos Oracle y manipular datos de tablas de manera eficiente.

© 2024 Programar desde Cero