Resolver problemas con los archivos indexados de COBOL
Capítulo 30: Problemas con la creación del archivo
Este capítulo lo dedico a la resolución de un problema que seguro has tenido con el archivo indexado.
El problema que tiene hasta el momento es el OPEN OUTPUT
, que cuando abres el archivo por primera vez y añades un registro lo guarda bien, pero al cerrarlo y volverlo a abrir para añadir un nuevo registro, borra todo lo que contiene el archivo y lo reemplaza por ese nuevo registro.
Este problema surge por las formas de apertura del archivo y tiene fácil solución. Puedes elegir entre 3 de los tres tipos de OPEN
except OPEN EXTEND
que no se puede utilizar para los archivos indexados, solo para los secuenciales.
De los tres que quedan, no nos sirve ninguno, en teoría. Digo en teoría porque no nos sirve ninguno desde el propio CREATE-INDEXED-FILE
. La única solución posible es crear un programa sólo para crear el archivo, y este solo lo ejecutaremos la primera vez que se cree la base de datos.
En el archivo CREATE-INDEXED-FILE
deja el OPEN I-O
y en el nuevo programa un OPEN OUTPUT
.
Puedes ver una explicación detallada en el vídeo.
Aquí tienes el programa para seguir este capítulo: OUTPUT-PHYSICAL.COB
Comentarios
Si te quedan dudas sobre el temario, sobre COBOL, o cualquier otra cosa relacionada o simplemente quieres agradecer, aquí tienes tu sitio para dejar tu granito de arena. Gracias por tus comentarios y por darle vida a este sitio web.