COBOL DESDE CERO #16

Aprendiendo COBOL: Lectura y Escritura de Archivos Secuenciales

Manejo Eficiente de Datos con Archivos Secuenciales en COBOL

En esta lección, nos sumergiremos en la lectura y escritura de archivos secuenciales en COBOL. Aprenderemos cómo manipular datos de manera eficiente utilizando técnicas específicas para gestionar registros de forma secuencial.

IDENTIFICATION DIVISION.
PROGRAM-ID. LecturaEscrituraSecuencial.

DATA DIVISION.
FILE SECTION.
    FD ArchivoEntrada.
    01 RegistroEntrada.
        05 NombreEntrada PIC X(30).
        05 EdadEntrada PIC 99.
        05 SalarioEntrada PIC 9(5)V99.

    FD ArchivoSalida.
    01 RegistroSalida.
        05 NombreSalida PIC X(30).
        05 EdadSalida PIC 99.
        05 SalarioSalida PIC 9(5)V99.

WORKING-STORAGE SECTION.
    01 SalarioMinimo CONSTANT 1500.00.

PROCEDURE DIVISION.
    OPEN INPUT ArchivoEntrada
         OUTPUT ArchivoSalida.

    PERFORM UNTIL EOF-ArchivoEntrada
        READ ArchivoEntrada INTO RegistroEntrada
            AT END SET EOF-ArchivoEntrada TO TRUE
        END-READ.

        IF EdadEntrada >= 18
            IF SalarioEntrada < SalarioMinimo
                ADD 500 TO SalarioEntrada
            END-IF.

            MOVE RegistroEntrada TO RegistroSalida
            WRITE RegistroSalida.
        END-IF.

    END-PERFORM.

    CLOSE ArchivoEntrada ArchivoSalida.

    STOP RUN.
        

En este programa, leemos un archivo de entrada, aplicamos ciertas condiciones a los datos y escribimos los registros seleccionados en un archivo de salida. Este ejemplo ilustra cómo manejar eficientemente archivos secuenciales en COBOL.

Puntos Destacados:

• Usamos las cláusulas OPEN, READ, y WRITE para manejar archivos secuenciales.
• Las operaciones se realizan en base a condiciones, como la edad y el salario mínimo.
• Estas técnicas son fundamentales para procesar grandes conjuntos de datos de manera secuencial.

En futuras lecciones, exploraremos casos más avanzados de manipulación de archivos secuenciales y estrategias para optimizar aún más el rendimiento en programas COBOL. ¡Sigue aprendiendo y disfrutando del viaje!