Aprendiendo COBOL: La sección FILE

Aprendiendo COBOL: La sección FILE

Entendiendo la sección FILE en COBOL

La sección FILE en COBOL se utiliza para definir y organizar archivos que serán utilizados por el programa. Permite al programador especificar la estructura y las características de los archivos que el programa leerá o escribirá.

Programa A: Lectura de Archivo

Supongamos que tenemos un programa COBOL llamado READ_FILE que lee un archivo de empleados y muestra su información por pantalla. Utilizaremos la sección FILE para definir la estructura del archivo.

IDENTIFICATION DIVISION.
PROGRAM-ID. READ-FILE.

DATA DIVISION.
FILE SECTION.
FD EMPLOYEE-FILE.
01 EMPLOYEE-RECORD.
   05 EMPLOYEE-ID       PIC X(5).
   05 EMPLOYEE-NAME     PIC X(30).
   05 EMPLOYEE-SALARY   PIC 9(6)V9(2).

WORKING-STORAGE SECTION.
01 WS-EMPLOYEE-COUNT     PIC 9(5) VALUE ZERO.

PROCEDURE DIVISION.
   OPEN INPUT EMPLOYEE-FILE.
   READ EMPLOYEE-FILE INTO EMPLOYEE-RECORD
       AT END DISPLAY "No hay más registros para leer."
       NOT AT END
           DISPLAY "Empleado ID: " EMPLOYEE-ID
           DISPLAY "Nombre: " EMPLOYEE-NAME
           DISPLAY "Salario: " EMPLOYEE-SALARY
           ADD 1 TO WS-EMPLOYEE-COUNT
           READ EMPLOYEE-FILE INTO EMPLOYEE-RECORD
   END-READ.
   CLOSE EMPLOYEE-FILE.
   DISPLAY "Total de empleados leídos: " WS-EMPLOYEE-COUNT.
   EXIT PROGRAM.
        

Programa B: Escritura en Archivo

El siguiente programa, WRITE_FILE, crea un archivo de empleados y escribe información en él. Utilizaremos la sección FILE para definir la estructura del archivo de salida.

IDENTIFICATION DIVISION.
PROGRAM-ID. WRITE-FILE.

DATA DIVISION.
FILE SECTION.
FD EMPLOYEE-OUTPUT-FILE.
01 EMPLOYEE-OUTPUT-RECORD.
   05 EMPLOYEE-ID       PIC X(5) VALUE 'E001'.
   05 EMPLOYEE-NAME     PIC X(30) VALUE 'John Doe'.
   05 EMPLOYEE-SALARY   PIC 9(6)V9(2) VALUE 50000.00.

PROCEDURE DIVISION.
   OPEN OUTPUT EMPLOYEE-OUTPUT-FILE.
   WRITE EMPLOYEE-OUTPUT-RECORD.
   CLOSE EMPLOYEE-OUTPUT-FILE.
   DISPLAY "Archivo de empleados creado exitosamente.".
   EXIT PROGRAM.
        

En estos ejemplos, la sección FILE se utiliza para definir la estructura de los archivos de entrada y salida. Esto facilita la lectura y escritura de datos de manera organizada y estructurada.

Puntos Clave:

• La sección FILE en COBOL se utiliza para definir la estructura y las características de los archivos que el programa utilizará.
• Es importante definir correctamente la estructura de los archivos en la sección FILE para garantizar que el programa pueda leer y escribir los datos correctamente.
• La sección FILE permite al programador organizar y gestionar los archivos de manera eficiente en programas COBOL.

¡Ahora estás listo para utilizar la sección FILE en tus programas COBOL para gestionar archivos de manera efectiva!

© 2024 Programar desde Cero