COBOL DESDE CERO #27

Aprendiendo COBOL: Manipulación de Archivos de Acceso Directo

Explorando el Acceso Directo a la Información en COBOL

En esta lección, nos sumergiremos en la manipulación de archivos de acceso directo en COBOL. Aprenderemos cómo leer y escribir registros en posiciones específicas del archivo, proporcionando un acceso más eficiente a la información.

IDENTIFICATION DIVISION.
PROGRAM-ID. AccesoDirecto.

DATA DIVISION.
FILE SECTION.
    FD ArchivoDirecto.
    01 RegistroDirecto.
        05 NumeroRegistro        PIC 9(3).
        05 DatosRegistro.
            10 NombreAlumno      PIC X(30).
            10 NotaAlumno        PIC 99.

WORKING-STORAGE SECTION.
    01 NumeroBuscar              PIC 9(3) VALUE 105.

PROCEDURE DIVISION.
    OPEN I-O ArchivoDirecto.

    MOVE NumeroBuscar TO NumeroRegistro.

    READ ArchivoDirecto
        KEY IS NumeroRegistro
        INVALID KEY
            DISPLAY 'Registro no encontrado'
        NOT INVALID KEY
            DISPLAY 'Nombre: ', NombreAlumno
            DISPLAY 'Nota: ', NotaAlumno
            PERFORM ActualizarRegistro.

    CLOSE ArchivoDirecto.

    STOP RUN.

ActualizarRegistro.
    DISPLAY 'Ingrese la nueva nota para ', NombreAlumno.
    ACCEPT NotaAlumno.
    REWRITE RegistroDirecto
        INVALID KEY
            DISPLAY 'Error al actualizar el registro'
        NOT INVALID KEY
            DISPLAY 'Registro actualizado'.
    EXIT.
        

En este programa, abrimos un archivo de acceso directo, leemos un registro específico según un número proporcionado y luego actualizamos la nota del alumno. Utilizamos la cláusula KEY IS para realizar la búsqueda directa del registro.

Puntos Destacados:

• Utilizamos la cláusula OPEN I-O para abrir el archivo en modo de entrada/salida.
• La cláusula READ con KEY IS nos permite buscar registros por clave.
• La cláusula REWRITE se utiliza para actualizar el registro.

En futuras lecciones, exploraremos casos más avanzados de manipulación de archivos de acceso directo y estrategias para trabajar con datos de manera eficiente en COBOL. ¡Sigue aprendiendo y disfrutando del viaje!

© 2024 Programar desde Cero