Tablas y Búsquedas en COBOL
Declaración y Uso de Tablas
En COBOL, puedes declarar tablas para almacenar conjuntos de datos relacionados. Las tablas se definen usando la cláusula OCCURS. Aquí tienes un ejemplo:
DATA DIVISION.
WORKING-STORAGE SECTION.
01 EMPLOYEE-TABLE.
05 EMPLOYEE-NAME PIC X(20) OCCURS 10 TIMES.
05 EMPLOYEE-SALARY PIC 9(6)V99 OCCURS 10 TIMES.
En este ejemplo, hemos declarado una tabla llamada EMPLOYEE-TABLE que puede almacenar hasta 10 nombres y salarios de empleados.
Para acceder a los elementos de la tabla, puedes usar el índice correspondiente. Por ejemplo:
MOVE 'John' TO EMPLOYEE-NAME(1).
MOVE 50000.00 TO EMPLOYEE-SALARY(1).
En este caso, estamos asignando el nombre 'John' y el salario 50000.00 al primer empleado en la tabla.
Búsqueda en Tablas con SEARCH
La instrucción SEARCH se utiliza para buscar un valor en una tabla. Aquí tienes un ejemplo:
SEARCH EMPLOYEE-TABLE
AT END DISPLAY 'Empleado no encontrado.'
WHEN EMPLOYEE-NAME(I) = 'John'
DISPLAY 'Salario de John: ' EMPLOYEE-SALARY(I)
END-SEARCH.
En este ejemplo, estamos buscando el nombre 'John' en la tabla EMPLOYEE-TABLE. Si se encuentra, mostramos su salario correspondiente.
Las tablas y las búsquedas son herramientas poderosas en COBOL para trabajar con conjuntos de datos estructurados de manera eficiente.
Modificar salario de empleado
En esta sección, aprenderemos cómo modificar el salario de un empleado en nuestra tabla EMPLOYEE-TABLE cuando el nombre del empleado es 'John'.
Entrada de usuario
Primero, solicitamos al usuario que ingrese el nuevo salario para el empleado 'John':
INPUT PROCEDURE.
DISPLAY 'Ingrese el nuevo salario para John: '
ACCEPT NEW-SALARY
En este código, estamos solicitando al usuario que ingrese el nuevo salario para el empleado 'John'.
Modificación del salario
Luego, utilizando la instrucción SEARCH, encontramos el registro correspondiente en la tabla EMPLOYEE-TABLE y actualizamos el salario con el valor proporcionado por el usuario:
PROCEDURE DIVISION.
SEARCH EMPLOYEE-TABLE
WHEN EMPLOYEE-NAME(I) = 'John'
MOVE NEW-SALARY TO EMPLOYEE-SALARY(I)
END-SEARCH.
En este código, estamos buscando el nombre 'John' en la tabla EMPLOYEE-TABLE. Si se encuentra, modificamos su salario con el valor ingresado por el usuario en la entrada anterior.
Esta es una forma básica de modificar el salario de un empleado en COBOL utilizando una entrada de usuario y la instrucción SEARCH.
No hay comentarios:
Publicar un comentario