Definición de Archivos y File-Control

En COBOL, la gestión de archivos externos (como archivos de texto o registros binarios en disco) es una de las funcionalidades más importantes para las aplicaciones empresariales de tipo batch. Dado que COBOL se diseñó mucho antes de las bases de datos modernas, los archivos en disco actúan como el almacenamiento primario.

El enlace entre los archivos físicos almacenados en el sistema operativo y las variables internas del programa se realiza en dos fases:

1. Asociación lógico-física en la ENVIRONMENT DIVISION.
2. Definición del registro de datos en la DATA DIVISION.

1. Asociación: FILE-CONTROL y SELECT ASSIGN

En el capítulo dedicado a la estructura del programa vimos la ENVIRONMENT DIVISION. En su interior se encuentra la INPUT-OUTPUT SECTION, dentro de la cual la sección FILE-CONTROL declara los archivos externos utilizados por el programa.

Para asociar un archivo lógico del programa (ej. SALES-FILE) a un archivo físico real en el disco (ej. sales.dat), se utiliza la instrucción SELECT ... ASSIGN TO ...:

       ENVIRONMENT DIVISION.
       INPUT-OUTPUT SECTION.
       FILE-CONTROL.
           SELECT SALES-FILE ASSIGN TO "sales.dat"
               ORGANIZATION IS LINE SEQUENTIAL.

• SELECT SALES-FILE: Define el nombre lógico que el programa utilizará para referirse al archivo.
• ASSIGN TO "sales.dat": Especifica el nombre del archivo físico (o la ruta) en el disco.
• ORGANIZATION IS LINE SEQUENTIAL (opcional): Indica que el archivo es un archivo de texto normal en el que cada línea representa un registro (separado por un carácter de retorno de carro).

2. Declaración: FILE SECTION y FD

Después de asociar el archivo en la ENVIRONMENT DIVISION, debemos definir la estructura de sus registros en la DATA DIVISION. Para hacerlo, utilizamos una sección dedicada llamada FILE SECTION (que precede a la WORKING-STORAGE SECTION).

Cada archivo seleccionado debe tener una entrada FD (File Description) que declare la estructura de su registro:

       DATA DIVISION.
       FILE SECTION.
       FD SALES-FILE.
       01 SALES-RECORD.
           05 EMP-ID       PIC 9(5).
           05 EMP-NAME     PIC X(20).
           05 EMP-SALARY   PIC 9(6)V99.

• FD SALES-FILE.: Identifica la descripción del archivo para el nombre lógico SALES-FILE. Nota que termina con un punto.
• 01 SALES-RECORD.: Especifica la estructura de grupo (registro) asociada al archivo. Cada operación de lectura/escritura intercambiará datos utilizando esta estructura en memoria.

Pruébalo tú mismo