Cobol en español

Que Cobol tiene muchas cosas buenas, no hace falta decirlo, pero su facilidad para trabajar con datos y por lo tanto con ficheros, es sencillamente increible.
Increible hasta el punto que podemos trabajar con un fichero, antes incluso de saber como se llama y donde se encuentra.

Lo mas lógico y mas utilizado es asignar previamente una localización y nombre para nuestro fichero en la SELECT, por ejemplo:

Ya sabéis que la extensión de nuestros ficheros es indiferente para Cobol, pero siempre nos ayudará a nosotros mismos a distinguir los archivos de datos de otro tipo de archivos.
Por eso generalmente se les suele poner la extensión .DAT.

Bien, ambas formas son correctas para designar los ficheros con los que vamos a trabajar en nuestra aplicación. Pero, ¿ que pasa si el nombre dependiera de alguna condición o debiera cumplir alguna regla ?.

En estos casos solo tendremos que asignar el fichero a una variable que definiremos en la WORKING-STORAGE SECTION. A esa variable le podremos dar los varlores que queramos para conformar nuestro nombre. Por supuesto, antes de abrir el fichero, esa variable debe de contener alguna información, de lo contrario nos daría error, simplemente porque no podría abrir un fichero sin nombre.

Para ver un ejemplo, os voy a explicar como trabajo yo personalmente. En mi empresa cada cambio de campaña (año de trabajo) los datos se copian y se empieza todo desde 0. A los ficheros les cambio el nombre, de tal forma que para las ventas, por ejemplo, tengo varios archivos que se llaman:

ventas.dat (actual)
vent0102.dat (campaña 2001/2002)
vent0001.dat (campaña 2000/2001)
vent9900.dat (campaña 1999/2000)
... y asi sucesivamente, todos los años que tenga.

Por lo tanto el programa que utilizo es el mismo al igual que la SELECT y la FD, porque en realidad solo utilizo un fichero lógico, pero con varios ficheros físicos. Os explico una tarea común en cualquier programa que trabaje con varios ficheros.
Primero defino la SELECT para dicho fichero:

SELECT VENTAS ASSIGN TO RANDOM FILVEN
ORGANIZATION INDEXED ACCESS DYNAMIC RECORD KEY KEYVEN
ALTERNATE RECORD KEYVEN1 FILE STATUS STAVEN.

Como veis ahora no hay un nombre fijo asignado, sino que la referencia se hace a una variable llamada FILVEN. Para guardar los nombres de los distintos ficheros utilizo una tabla. Lo siguiente es definirlo todo en la WORKING:

...
WORKING-STORAGE SECTION.
01 FILVEN PIC X(20).
01 CUAL PIC 9 VALUE 1.
...
01 TABLAVENTAS.

01 RETABLAVENTAS REDEFINES TABLAVENTAS.

...

Siempre, cuando empiezo directamente asigno el primer elemento de la tabla, que se supone que es el fichero actual con el que estoy trabajando, por lo tanto hago lo siguiente:

...
PROCEDURE DIVISION.
INICIO.

A partir de aqui realizo el programa normalmente, pero tengo una opción para seleccionar campaña, en la cual llamo a una rutina que me muestra los elementos de la tabla, cuando el usuario seleccione alguna yo cambio el valor de la variable CUAL y vuelvo el control del programa al párrafo INICIO, con lo cual, me tomará el valor que le haya asignado en la elección.
Es una manera de hacerlo, a mi me va muy bien.

Pero la idea era que comprendiérais como se pueden asignar diferentes nombres de fichero dentro de un programa.

A continuación veremos como pasar los datos de un fichero indexado a uno secuencial y generar un fichero de texto para exportarlo a Excel. Es una tarea muy común con la que cualquier programador se va a encontrar en algún momento, ya sea para paso a Excel o Access o a cualquier otra aplicación externa a nuestros programas, que tenga alguna opción de importación de datos.

Voy a aprovechar también para asignar el nombre del fichero dentro del programa dependiendo de la fecha.

Empecemos ... por el principio.

IDENTIFICATION DIVISION.
PROGRAM-ID. TRASPASO.
ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
SPECIAL-NAMES. DECIMAL-POINT IS COMMA.
INPUT-OUTPUT SECTION.
FILE-CONTROL.

DATA DIVISION.
FILE SECTION.
FD CLIENTES LABER RECORD STANDARD.
01 REG-CLIENTES.

FD TRASPASO LABEL RECORD STANDARD.
01 REG-TRASPASO.

WORKING-STORAGE SECTION.
01 TABLAMES.

01 TABLIMES REDEFINES TABLAMES.

01 FECHA PIC 9(6).
01 FECHO REDEFINES FECHA.

01 NOMBREAR.

01 FINFIC PIC X.
PROCEDURE DIVISION.
INICIO.

El separador entre campos ha sido el carácter 124, que se obtiene pulsando AltGr+1, pero también podemos definirlo como hexadecimal como PIC X VALUE '7C'.
Si lo que deseamos es mandar le enviamos el valor hexadecimal 9, para ello definimos una variable en la WORKING, por ejemplo:

01 TABU PIC X VALUE H"09".

Y luego le enviamos esa variable a los campos de separación. Como véis el nombre del fichero de traspaso se ha formado a partir de la fecha del sistema, con lo que si lo hubieramos ejecutado hoy, el nombre del fichero resultante, hubiera sido: MAR03-28.TXT.

Con éste capítulo doy por terminada la sección dedicada a los ficheros, espero que como siempre os digo, os sirva y os ayude a comprender mejor el funcionamiento de los ficheros en Cobol.