COBOL DESDE CERO #12

Aprendiendo COBOL: Archivos Indexados

Optimizando el Acceso a Datos con Archivos Indexados en COBOL

En esta lección, nos sumergiremos en el mundo de los archivos indexados en COBOL. Aprenderemos cómo utilizar índices para acceder eficientemente a registros específicos, una técnica clave en aplicaciones que manejan grandes conjuntos de datos.

IDENTIFICATION DIVISION.
PROGRAM-ID. ArchivosIndexados.

DATA DIVISION.
FILE SECTION.
    FD ArchivoIndexado.
    01 RegistroIndexado.
        05 Clave PIC X(5).
        05 Campo1 PIC X(15).
        05 Campo2 PIC 9(5).

WORKING-STORAGE SECTION.
    01 DatosEntrada.
        05 EntradaClave PIC X(5) VALUE 'Clave1'.
        05 EntradaCampo1 PIC X(15) VALUE 'Dato Importante'.
        05 EntradaCampo2 PIC 9(5) VALUE 98765.

PROCEDURE DIVISION.
    OPEN I-O ArchivoIndexado.
    MOVE EntradaClave TO Clave.
    WRITE RegistroIndexado FROM DatosEntrada.

    MOVE 'Clave2' TO Clave.
    READ ArchivoIndexado INTO RegistroIndexado
        INVALID KEY
            DISPLAY 'Registro no encontrado.'
    END-READ.

    DISPLAY 'Contenido del Registro: ', Clave, ' - ', Campo1, ' - ', Campo2.
    CLOSE ArchivoIndexado.

    STOP RUN.
        

En este programa, creamos un archivo indexado y escribimos un registro con una clave. Luego, leemos el archivo utilizando esa clave y mostramos el contenido del registro correspondiente. Es un ejemplo básico para entender el concepto de archivos indexados en COBOL.

Puntos Destacados:

• La cláusula FD se utiliza para definir la estructura del archivo indexado.
• Las operaciones OPEN I-O y WRITE son utilizadas para escribir en el archivo.
• La operación READ con la cláusula INVALID KEY maneja la búsqueda por clave.

En futuras lecciones, exploraremos casos más complejos de archivos indexados y cómo optimizar su uso en programas COBOL. ¡Sigue aprendiendo y disfrutando del viaje!