COBOL DESDE CERO #5

Aprendiendo COBOL: Manipulación de Archivos

Introducción a la Manipulación de Archivos en COBOL

En esta lección, nos sumergiremos en la manipulación de archivos en COBOL. Aprenderemos cómo abrir, leer y escribir en archivos. Utilizaremos la cláusula FILE y las instrucciones OPEN, READ, y WRITE.

IDENTIFICATION DIVISION.
PROGRAM-ID. ManipulacionArchivos.

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

WORKING-STORAGE SECTION.
    01 MiRegistro.
        05 Nombre       PIC X(20).
        05 Edad         PIC 9(3).

PROCEDURE DIVISION.
    OPEN OUTPUT MiArchivo.
    MOVE 'Juan' TO Nombre.
    MOVE 25 TO Edad.
    WRITE MiRegistro.
    CLOSE MiArchivo.

    OPEN INPUT MiArchivo.
    READ MiArchivo INTO MiRegistro.
    DISPLAY 'Nombre: ', Nombre.
    DISPLAY 'Edad: ', Edad.
    CLOSE MiArchivo.

    STOP RUN.
        

En este programa, abrimos un archivo para escritura, escribimos datos en él, lo cerramos y luego lo abrimos para lectura. Leemos los datos del archivo y los mostramos en la consola.

Puntos Destacados:

• La cláusula FILE se utiliza para definir archivos.
• Las instrucciones OPEN, WRITE, READ, y CLOSE gestionan la manipulación de archivos.
• Los datos se escriben y leen utilizando el mismo registro.

En las próximas lecciones, exploraremos más sobre la manipulación avanzada de archivos y cómo trabajar con diferentes tipos de archivos en COBOL. ¡Sigue aprendiendo y disfrutando del viaje!