COBOL DESDE CERO #7

Aprendiendo COBOL: Ordenación y Combinación de Archivos

Explorando Técnicas Avanzadas en COBOL

En esta lección, nos adentraremos en técnicas avanzadas de manipulación de archivos en COBOL, como la ordenación y combinación de archivos. Utilizaremos las cláusulas SORT y MERGE para lograr estos procesos.

IDENTIFICATION DIVISION.
PROGRAM-ID. OrdenacionCombinacion.

DATA DIVISION.
WORKING-STORAGE SECTION.
    01 RegistroArchivo1.
        05 Codigo1      PIC X(5).
        05 Descripcion1 PIC X(30).
        05 Precio1      PIC 9(5)V99.

    01 RegistroArchivo2.
        05 Codigo2      PIC X(5).
        05 Descripcion2 PIC X(30).
        05 Precio2      PIC 9(5)V99.

    01 RegistroSalida.
        05 CodigoSalida      PIC X(5).
        05 DescripcionSalida PIC X(30).
        05 PrecioSalida      PIC 9(5)V99.

    01 Archivo1.
        05 EOF1           PIC X VALUE 'NO'.
        05 CodigoArchivo1 PIC X(5).
        05 DescripcionArchivo1 PIC X(30).
        05 PrecioArchivo1 PIC 9(5)V99.

    01 Archivo2.
        05 EOF2           PIC X VALUE 'NO'.
        05 CodigoArchivo2 PIC X(5).
        05 DescripcionArchivo2 PIC X(30).
        05 PrecioArchivo2 PIC 9(5)V99.

    01 ArchivoSalida.
        05 EOFSalida           PIC X VALUE 'NO'.
        05 CodigoSalidaArchivo PIC X(5).
        05 DescripcionSalidaArchivo PIC X(30).
        05 PrecioSalidaArchivo PIC 9(5)V99.

PROCEDURE DIVISION.
    OPEN INPUT Archivo1.
    OPEN INPUT Archivo2.
    OPEN OUTPUT ArchivoSalida.

    READ Archivo1 INTO RegistroArchivo1 AT END MOVE 'YES' TO EOF1.
    READ Archivo2 INTO RegistroArchivo2 AT END MOVE 'YES' TO EOF2.

    PERFORM UNTIL EOF1 = 'YES' AND EOF2 = 'YES'
        IF CodigoArchivo1 < CodigoArchivo2
            MOVE RegistroArchivo1 TO RegistroSalida
            READ Archivo1 INTO RegistroArchivo1 AT END MOVE 'YES' TO EOF1
        ELSE
            MOVE RegistroArchivo2 TO RegistroSalida
            READ Archivo2 INTO RegistroArchivo2 AT END MOVE 'YES' TO EOF2
        END-IF.

        WRITE RegistroSalida INTO ArchivoSalida.
    END-PERFORM.

    CLOSE Archivo1.
    CLOSE Archivo2.
    CLOSE ArchivoSalida.

    STOP RUN.
        

En este programa, combinamos dos archivos ordenados según un criterio (en este caso, el código). El resultado se escribe en un tercer archivo de salida. Esta técnica es útil para combinar datos de diferentes fuentesy realizar operaciones más complejas de manipulación de archivos.

Puntos Destacados:

• Se utilizan tres archivos: dos de entrada (Archivo1 y Archivo2) y uno de salida (ArchivoSalida).
• Los registros de los archivos de entrada se leen y se comparan para determinar cuál debe ser el siguiente registro en el archivo de salida.
• Las cláusulas SORT y MERGE son esenciales para ordenar y combinar archivos eficientemente.

En futuras lecciones, exploraremos más sobre técnicas avanzadas en COBOL y cómo aplicarlas en situaciones del mundo real. ¡Sigue aprendiendo y disfrutando del viaje!