COBOL DESDE CERO #21

Aprendiendo COBOL: Operaciones de Entrada/Salida con Archivos Secuenciales

Manejo Efectivo de Archivos Secuenciales en COBOL

En esta lección, exploraremos cómo realizar operaciones de entrada/salida con archivos secuenciales en COBOL. Aprenderemos a abrir, leer, escribir y cerrar archivos, habilidades fundamentales para el procesamiento de datos en programas COBOL.

IDENTIFICATION DIVISION.
PROGRAM-ID. OperacionesIOArchivos.

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

    FD ArchivoSalida.
    01 RegistroSalida.
        05 NombreAlumno  PIC X(30).
        05 NotaAlumno    PIC 99.

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

PROCEDURE DIVISION.
    OPEN INPUT ArchivoEntrada
         OUTPUT ArchivoSalida.

    PERFORM UNTIL FinArchivoEntrada = 'Y'
        READ ArchivoEntrada
            AT END SET FinArchivoEntrada TO 'Y'
            NOT AT END
                PERFORM PROCESAR-DATOS
        END-READ
    END-PERFORM.

    CLOSE ArchivoEntrada ArchivoSalida.

    STOP RUN.

PROCESAR-DATOS.
    DISPLAY 'Nombre: ', NombreAlumno
    DISPLAY 'Nota: ', NotaAlumno.

    MOVE RegistroEntrada TO RegistroSalida
    WRITE RegistroSalida.
        

En este programa, abrimos un archivo de entrada y otro de salida, leemos registros del archivo de entrada, procesamos los datos y escribimos en el archivo de salida. Estas operaciones son fundamentales para manipular información de manera eficiente en COBOL.

Puntos Destacados:

• Utilizamos las cláusulas OPEN, READ, WRITE, y CLOSE para operaciones de entrada/salida.
• 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 operaciones de entrada/salida y estrategias para manejar archivos de manera más compleja en COBOL. ¡Sigue aprendiendo y disfrutando del viaje!

© 2024 Programar desde Cero