COBOL DESDE CERO #26

Aprendiendo COBOL: Gestión de Archivos Secuenciales

Explorando la Manipulación de Archivos en COBOL

En esta lección, nos adentraremos en la gestión de archivos secuenciales en COBOL. Aprenderemos cómo abrir, leer, escribir y cerrar archivos, una habilidad esencial en el procesamiento de datos.

IDENTIFICATION DIVISION.
PROGRAM-ID. GestionArchivos.

DATA DIVISION.
FILE SECTION.
    FD ArchivoEntrada.
    01 RegistroEntrada.
        05 NombreAlumno  PIC X(30).
        05 NotaAlumno    PIC 99.

WORKING-STORAGE SECTION.
    01 FinArchivoEntrada   PIC X VALUE 'N'.

PROCEDURE DIVISION.
    OPEN INPUT ArchivoEntrada.

    PERFORM UNTIL FinArchivoEntrada = 'Y'
        READ ArchivoEntrada
            AT END SET FinArchivoEntrada TO 'Y'
            NOT AT END
                DISPLAY 'Nombre: ', NombreAlumno
                DISPLAY 'Nota: ', NotaAlumno
        END-READ
    END-PERFORM.

    CLOSE ArchivoEntrada.

    STOP RUN.
        

En este programa, abrimos un archivo de entrada, leemos sus registros y mostramos la información. La cláusula AT END nos permite manejar el final del archivo de manera adecuada.

Puntos Destacados:

• Utilizamos las cláusulas OPEN, READ, y CLOSE para operaciones de archivo.
• La cláusula AT END nos permite manejar el final del archivo de entrada.
• La manipulación de registros se realiza mediante las estructuras de datos definidas en las cláusulas FD.

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

© 2024 Programar desde Cero