COBOL DESDE CERO #11

Aprendiendo COBOL: Manejo de Archivos Secuenciales

Operando con Archivos Secuenciales en COBOL

En esta lección, nos adentraremos en el manejo de archivos secuenciales en COBOL. Aprenderemos cómo abrir, leer y escribir en archivos, realizando operaciones básicas que son esenciales para muchas aplicaciones.

IDENTIFICATION DIVISION.
PROGRAM-ID. ManejoArchivos.

DATA DIVISION.
FILE SECTION.
    FD ArchivoSecuencial.
    01 RegistroArchivo.
        05 Campo1 PIC X(10).
        05 Campo2 PIC 9(5).
        05 Campo3 PIC 9(3).

WORKING-STORAGE SECTION.
    01 DatosEntrada.
        05 EntradaCampo1 PIC X(10) VALUE 'Ejemplo'.
        05 EntradaCampo2 PIC 9(5) VALUE 12345.
        05 EntradaCampo3 PIC 9(3) VALUE 789.

PROCEDURE DIVISION.
    OPEN OUTPUT ArchivoSecuencial.
    WRITE RegistroArchivo FROM DatosEntrada.
    CLOSE ArchivoSecuencial.

    OPEN INPUT ArchivoSecuencial.
    READ ArchivoSecuencial INTO RegistroArchivo.
    DISPLAY 'Contenido del Archivo: ', Campo1, ' - ', Campo2, ' - ', Campo3.
    CLOSE ArchivoSecuencial.

    STOP RUN.
        

En este programa, creamos un archivo secuencial, escribimos datos en él y luego los leemos para mostrar el contenido. Es un ejemplo básico que ilustra cómo realizar operaciones fundamentales con archivos secuenciales en COBOL.

Puntos Destacados:

• Usamos la cláusula FD para definir la estructura del archivo.
• Las operaciones OPEN, WRITE, y READ son esenciales para el manejo de archivos secuenciales.
• El contenido del archivo se muestra en la consola mediante la cláusula DISPLAY.

En futuras lecciones, exploraremos operaciones más avanzadas con archivos y cómo integrar el manejo de archivos en programas más complejos. ¡Sigue aprendiendo y disfrutando del viaje!