COBOL DESDE CERO #6

Aprendiendo COBOL: Búsqueda en Archivos Secuenciales

Realizando Búsqueda en Archivos Secuenciales en COBOL

En esta lección, exploraremos cómo realizar operaciones de búsqueda en archivos secuenciales en COBOL. Utilizaremos la instrucción READ para buscar y recuperar datos específicos.

IDENTIFICATION DIVISION.
PROGRAM-ID. BusquedaArchivos.

DATA DIVISION.
FILE SECTION.
    FD MiArchivo
        LABEL RECORDS ARE STANDARD
        VALUE OF FILE-ID IS 'datos.txt'
        DATA RECORD IS MiRegistro.

WORKING-STORAGE SECTION.
    01 MiRegistro.
        05 Codigo       PIC X(5).
        05 Descripcion  PIC X(30).
        05 Precio       PIC 9(5)V99.

    01 CodigoBusqueda PIC X(5) VALUE 'A1234'.

PROCEDURE DIVISION.
    OPEN INPUT MiArchivo.

    PERFORM UNTIL Codigo = CodigoBusqueda OR EOF(MiArchivo)
        READ MiArchivo INTO MiRegistro
        AT END DISPLAY 'Registro no encontrado.'
        END-READ
    END-PERFORM.

    IF Codigo = CodigoBusqueda
        DISPLAY 'Registro encontrado:'
        DISPLAY 'Código: ', Codigo
        DISPLAY 'Descripción: ', Descripcion
        DISPLAY 'Precio: ', Precio
    END-IF.

    CLOSE MiArchivo.

    STOP RUN.
        

En este programa, abrimos un archivo para lectura y realizamos una búsqueda secuencial hasta encontrar un código específico (CodigoBusqueda). Si encontramos el código, mostramos la información asociada al registro.

Puntos Destacados:

• La instrucción READ se utiliza para leer registros de un archivo.
• La condición AT END se activa cuando llegamos al final del archivo.
• Utilizamos una variable de control (CodigoBusqueda) para especificar el código que estamos buscando.

En futuras lecciones, exploraremos más sobre manipulación avanzada de archivos y técnicas de procesamiento en COBOL. ¡Sigue aprendiendo y disfrutando del viaje!