COBOL DESDE CERO #19

Aprendiendo COBOL: Uso de Tablas para Manipular Datos

Optimizando la Manipulación de Datos con Tablas en COBOL

En esta lección, exploraremos el uso de tablas en COBOL para manejar conjuntos de datos estructurados. Aprenderemos cómo declarar, inicializar y acceder a tablas, lo que nos permitirá optimizar la manipulación de datos y simplificar la lógica del programa.

IDENTIFICATION DIVISION.
PROGRAM-ID. UsoDeTablas.

DATA DIVISION.
WORKING-STORAGE SECTION.
    01 IndiceTabla       PIC 9(3) VALUE 1.
    01 TablaNombres      OCCURS 10 TIMES.
        05 NombreAlumno  PIC X(30) VALUE 'Nombre1 Nombre Apellido'.
    01 TablaNotas        OCCURS 10 TIMES.
        05 NotaAlumno    PIC 99.

PROCEDURE DIVISION.
    PERFORM INICIALIZAR-TABLAS.
    PERFORM MOSTRAR-DATOS.
    STOP RUN.

INICIALIZAR-TABLAS.
    PERFORM VARYING IndiceTabla FROM 1 BY 1 UNTIL IndiceTabla > 10
        MOVE 'Nombre' IndiceTabla ' Apellido' TO NombreAlumno(IndiceTabla)
        MOVE IndiceTabla TO NotaAlumno(IndiceTabla)
    END-PERFORM.

MOSTRAR-DATOS.
    PERFORM VARYING IndiceTabla FROM 1 BY 1 UNTIL IndiceTabla > 10
        DISPLAY 'Nombre: ', NombreAlumno(IndiceTabla)
        DISPLAY 'Nota: ', NotaAlumno(IndiceTabla)
    END-PERFORM.
        

En este programa, utilizamos dos tablas: TablaNombres y TablaNotas. Estas tablas nos permiten almacenar y manipular datos de manera estructurada, simplificando la lógica del programa.

Puntos Destacados:

• Declaramos tablas usando la cláusula OCCURS.
• Inicializamos las tablas mediante un bucle PERFORM.
• Accedemos a los elementos de las tablas utilizando índices.

En futuras lecciones, exploraremos casos más avanzados de uso de tablas en COBOL y estrategias para aprovechar al máximo esta característica del lenguaje. ¡Sigue aprendiendo y disfrutando del viaje!

© 2024 Programar desde Cero