|
[AYUDA] problemas con file-status
Hola, estoy escribiendo un programa que contiene un registro de libros para agregar, quitar, buscar, etc.. todo iba bien hasta que escribi la seccion de file status para que el programa
pueda saber si es necesario crear un archivo en caso que este no existe, se que puedo hacer funcionar el programa sin hacer esto pero como una buena practica quiero aprender a usar los file status. El problema en cuestion esta al ingresar en la opcion 3,en el parrafo VER-LIBROS coloque un if para determinar si F-NOEXISTE-REG es TRUE disparar un mensaje de error, y en caso que no,que proceda a leer el archivo y mostrar todo lo que contiene, si elimino el archivo y presiono 3 me muestra ese error a la perfeccion pero si creo el archivo o el archivo ya existe de antemano luego no ingresa a la seccion 3, o simplemente se saltea el if o simplemente no me muestra ningun libro a pesar de haber ingresado algunos. Aqui dejo mi codigo, cualquier ayuda, consejo, cosa que mejorar se agradece.. Código COBOL:
|
@Marengo97, eso es porque lees el registro con el valor de "LIBRO-ID" no existe y se sale.
Te adjunto código para leer todos de una mejor forma. Modifica esta variable añadiendo un nuevo file status. Código COBOL:
Y recorre el fichero de esta forma: Código COBOL:
si tienes alguna duda hazmelo saber. |
Funciona perfecto!
Podria explicarme como es que funciona? Antes de aplicar el file status era bastante simple pero al parecer cambia el codigo de ver-libros al usarlo, entiendo los statement de initialize y start, no tanto el de next record, pero no entiendo la logica que aplicó, por ende no se por que funciona. El uuunico error que encontre es que si creo el archivo, de no existir, entra en un loop infinito mostrando "000" al entrar a la opcion 3, pero al cerrar el programa y volver a ejecturlo funciona perfecto y muestra el registro vacio, como podria solucionarlo? Gracias. |
Ya lo solucione, resulta que cuando creaba el archivo no lo cerraba luego de abrirlo y al ingresar en la opcion 3 yo indico que abre en modo I-O y eso rompia el programa, pero aun no entiendo su codigo en totalidad jaja.
|
@Marengo97, te explico.
Tu has hecho un bucle y siempre lees el mismo registro con el contenido de la clave "libro-id". No cambias libro-id. Otra cosa es que cambiaras el valor aumentandolo, pero realmente tendrias lecturas fallidas. Cuando quieres recorrer un fichero completamente: 1) realiza un start con la clave deseada, para poner el cursor de lectura al principio. Aunque tu lo abres y se supone que esta al principio. Si tuvieras varias claves en el fichero, libro-id, nombre, editorial podrias leer secuencialmente por esa clave. Incluso no desde el principio sino desde un a determinada posicion. 2) read next lee el siguiente por la clave especificada en el start. Cuando llega al final mete un 10 en el file status. NOTA. Para este bucle de lectura es recomendable hacer un "OPEN INPUT" en vez de "OPEN I-O" porque si hay varios usuarios trabajando te podrias encontrar un registro bloqueado. Entonces la solucion es leer con una apertura "open input" si no tendrias que hacer lecturas con la clausula "with no lock" para no bloquear registros ni encontrartelos bloqueados. - - - Updated - - - Metidos en el tema, suponte que deseas seleccionar un intevalo de libros: accept libro-desde accept libro-hasta Código COBOL:
|
Muchas gracias cantero, lo voy a tener en cuenta. ;)
|
@JCantero
Me encontre con un problema, si quiero registrar un libro en la opcion 1, suponete tengo dos libros, solo me muestra el ultimo que ingrese. |
Ya lo solucione...estaba abriendo como output y me creaba un nuevo archivo cada vez, hace rato no uso cobol y me olvido cosas muy fundamentales :silba:
|
| La franja horaria es GMT +2. Ahora son las 14:01. |
Powered by: vBulletin, Versión 3.8.7
Derechos de Autor ©2000 - 2026, Jelsoft Enterprises Ltd.