COBOL DESDE CERO #10

Aprendiendo COBOL: Uso de Tablas para Manejar Datos

Organizando Datos con Tablas en COBOL

En esta lección, exploraremos el uso de tablas en COBOL para manejar datos estructurados. Las tablas son útiles para trabajar con conjuntos de datos relacionados y simplificar el acceso a la información.

IDENTIFICATION DIVISION.
PROGRAM-ID. ManejoTablas.

DATA DIVISION.
WORKING-STORAGE SECTION.
    01 Empleados.
        05 IDEmpleado     PIC X(5) OCCURS 10 TIMES.
        05 NombreEmpleado PIC X(30) OCCURS 10 TIMES.
        05 SalarioEmpleado PIC 9(6)V99 OCCURS 10 TIMES.

PROCEDURE DIVISION.
    MOVE 'E001' TO IDEmpleado(1).
    MOVE 'Juan Perez' TO NombreEmpleado(1).
    MOVE 50000.50 TO SalarioEmpleado(1).

    MOVE 'E002' TO IDEmpleado(2).
    MOVE 'Maria Lopez' TO NombreEmpleado(2).
    MOVE 60000.75 TO SalarioEmpleado(2).

    DISPLAY 'Emp 1: ', IDEmpleado(1), ' - ', NombreEmpleado(1), ' - ', SalarioEmpleado(1).
    DISPLAY 'Emp 2: ', IDEmpleado(2), ' - ', NombreEmpleado(2), ' - ', SalarioEmpleado(2).

    STOP RUN.
        

En este programa, hemos creado una tabla llamada Empleados con tres campos: IDEmpleado, NombreEmpleado, y SalarioEmpleado. La tabla puede almacenar hasta 10 registros, y cada campo tiene su propia instancia para cada registro.

Puntos Destacados:

• Las tablas en COBOL son útiles para organizar datos de manera estructurada.
• Utilizamos la cláusula OCCURS para definir la cantidad de veces que se repite cada campo.
• Cada campo tiene su índice, lo que permite acceder fácilmente a la información de registros específicos.

En futuras lecciones, exploraremos más sobre el manejo avanzado de tablas y cómo pueden ser utilizadas en situaciones prácticas. ¡Sigue aprendiendo y disfrutando del viaje!