COBOL DESDE CERO #34

Aprendiendo COBOL: Archivos de Acceso Relativo

Trabajando con Archivos de Acceso Relativo en COBOL

En esta lección, exploraremos cómo manipular archivos de acceso relativo en COBOL. Aprenderemos a realizar operaciones de lectura, escritura y posicionamiento en archivos que utilizan un acceso relativo, lo que puede ser útil para manejar conjuntos de datos organizados de manera secuencial.

IDENTIFICATION DIVISION.
PROGRAM-ID. ArchivosAccesoRelativo.

DATA DIVISION.
FILE SECTION.
    FD ArchivoRelativo
       LABEL RECORDS ARE STANDARD
       VALUE OF FILE-ID IS "datos.dat"
       RELATIVE KEY IS Num-Registro.
    01 RegistroRelativo.
       05 Num-Registro      PIC 9(3).
       05 Datos             PIC X(30).

WORKING-STORAGE SECTION.
    01 RegistrosLeidos     PIC 9(3) VALUE 0.

PROCEDURE DIVISION.
    OPEN I-O ArchivoRelativo.

    PERFORM 5 TIMES
        READ ArchivoRelativo
            AT END DISPLAY 'Fin del archivo.'
        END-READ
        ADD 1 TO RegistrosLeidos
    END-PERFORM.

    DISPLAY 'Total de registros leídos: ', RegistrosLeidos.

    CLOSE ArchivoRelativo.

    STOP RUN.
        

En este programa, abrimos un archivo de acceso relativo llamado "datos.dat" y leemos todos los registros, contando cuántos registros hemos leído en total. La clave relativa del archivo es Num-Registro.

Puntos Destacados:

• La declaración RELATIVE KEY especifica la clave relativa utilizada para acceder a los registros.
• La instrucción READ se utiliza para leer registros de archivos de acceso relativo.

En futuras lecciones, exploraremos operaciones más avanzadas con archivos de acceso relativo y estrategias para trabajar con ellos eficientemente. ¡Sigue aprendiendo y disfrutando del viaje!

© 2024 Programar desde Cero