@Marengo97, En el programa que pones hay muchas cosas. Para que te podamos ayudar dinos en que linea te da que problema porque hay muchas cosas.
Deberias de ordenar un poco las opciones para que quede mas claro lo que intentas hacer.
Por ejemplo.
Displaya un menu con opciones.
- Alta registro
- Modificación registro
- Eliminar registro
- Listar registros
- Salir
Y ya una vez seleccionado la opción hacer la opción indicada.
El manejo de ficheros indexados e diferente a uno sequencial.
Puedes leer un registro existente por su clave.
Código COBOL:
read stock-maestro key is llave-numero-producto end-read
Puedes escribir un registro que no existe
Código COBOL:
write reg-productos end-write
Puedes reescribir o actualizar un registro que ya existe
Código COBOL:
rewrite reg-productos end-rewrite
Para hacer write o rewrite el fichero tiene que estar abierto asi
Puedes posicionarte en un registro y leer en secuencial
Código COBOL:
start stock-maestro key is > llave-numero-producto end-start
read stock-maestro at END SET FIN-ARCHIVO-ACT TO TRUE END-READ
Por ultimo te recomiendo que veas este tutorial que hace la gestión de un fichero indexado. Te pongo el link del hilo abierto.
- - - Updated - - -
[Información] Curso gratuito de GNU Cobol
Lenguaje COBOL desde 0 | IToo