I/O Error al ejecutar una base de datos

[DestinedBroken]

Hola comunidad,

Estoy empezando a trabajar con bases de datos en Cobol y este es mi primer ejercicio. Es muy sencillo. Solamente se le pide al usuario que rellene una serie de campos para introducir una persona con sus atributos en un registro de la base. Lo extraño del código es que funcionar, funciona todo bien. Me introduce correctamente todo, pero al final, cuando le digo que no quiero seguir con el programa, es cuando me tira el error:



El código:

       program-id. create-files as "primero bases de datos".
 
       environment division.
       configuration section.
       input-output section.
 
       file-control.
       select optional empleados-archivo
           assign to "f:\empleados.dat"
           organization is line sequential.
 
       data division.
       file section.
       fd empleados-archivo.
      *label etiqueta-antigua-para-cintas.
       01 empleados-registro.
         05 empleados-id pic x(6).
         05 empleados-nombre pic x(25).
         05 empleados-apellidos pic x(35).
         05 empleados-edad pic x(3).
         05 empleados-telefono pic x(9).
         05 empleados-direccion pic x(35).
 
       working-storage section.
       01 identificador pic x(36) value 
      -"Introduce un ID del nuevo empleado: ".
       01 nombre pic x(33) value "Introduce un nombre de empleado:".
       01 apellidos pic x(25) value "Introduce los apellidos:".
       01 edad pic x(19) value "Introduce la edad:".
       01 telefono pic x(33) value "Introduce un numero de telefono:".
       01 direccion pic x(25) value "Introduce una direccion:".
 
       01 si-no pic x.
       01 entrada pic x.
 
       procedure division.
 
       program-begin.
           perform procedimiento-de-apertura
           move "s" to si-no
           perform agregar-registros
             until si-no = "n"
           perform procedimiento-de-cierre
 
           .
 
       procedimiento-de-apertura.
           open extend empleados-archivo
           .
 
       procedimiento-de-cierre.
           close empleados-archivo
           .
 
       agregar-registros.
           move "n" to si-no
           perform obtener-campos
             until entrada = "s"
           perform escribir-registro
           perform reiniciar
           .
 
       obtener-campos.
           move space to empleados-registro
           display identificador
           accept empleados-id
           display nombre
           accept empleados-nombre
           display apellidos
           accept empleados-apellidos
           display edad
           accept empleados-edad
           display telefono
           accept empleados-telefono
           display direccion
           accept empleados-direccion
           perform continuar
 
           .
 
       continuar.
           move "s" to entrada
           if empleados-nombre = space
               move "n" to entrada
           end-if
           .
 
       escribir-registro.
           write empleados-registro
           .
 
       reiniciar.
           display "Almacenar otro registro en la base de datos (s/n)??"
           accept si-no
           if si-no = "s"
               move "s" to si-no
           end-if
           if si-no not = "s"
               move "n" to si-no
           end-if
           .
 
       end program create-files.

[Kuk]

@DestinedBroken, hola amigo. Por lo pronto esto lo tendrás que modificar porque sinceramente no vale:

           if si-no = "s"
               move "s" to si-no
           end-if
           if si-no not = "s"
               move "n" to si-no
           end-if

Fíjate en el primer MOVE, piensa en el ELSE....

Luego por lo del error, me parece que es el momento de que uses el Debug, verás que chollo. Te muestra el contenido de los campos, puedes seguir la ejecución sentencia por sentencia.

Si aún encuentras dificultades, dímelo y te doy más pistas

[Fito]

Holaaaa:

Te está faltando el STOP RUN, después que corres la rutina de cierre. Porque sigue ejecutando las líneas de abajo.

Saludos

Fito...

[DestinedBroken]

@Fito, Esta es una de las cosas que me he dado cuenta. Gracias compañero.

@Kuk, Paso a poner mi código mejorado. He quitado muchas cosas que no tenían sentido. Como rutinas de solo una línea de código. El trozo de código del if-else también lo he cambiado. Creo que ahora está mejor.

El problema está resuelto, pero no funciona cuando quiero meter más personas en la base de datos. Me explico:

       program-id. create-files as "primero bases de datos".
 
       environment division.
       configuration section.
       input-output section.
 
       file-control.
       select optional empleados-archivo
           assign to "f:\empleados_escritura.dat"
           organization is line sequential.
 
       data division.
       file section.
       fd empleados-archivo.
      *label etiqueta-antigua-para-cintas.
       01 empleados-registro.
         05 empleados-id pic x(6).
         05 empleados-nombre pic x(25).
         05 empleados-apellidos pic x(35).
         05 empleados-edad pic x(3).
         05 empleados-telefono pic x(9).
         05 empleados-direccion pic x(35).
 
       working-storage section.
       01 identificador pic x(36) value 
      -"Introduce un ID del nuevo empleado: ".
       01 nombre pic x(33) value "Introduce un nombre de empleado:".
       01 apellidos pic x(25) value "Introduce los apellidos:".
       01 edad pic x(19) value "Introduce la edad:".
       01 telefono pic x(33) value "Introduce un numero de telefono:".
       01 direccion pic x(25) value "Introduce una direccion:".
 
       01 si-no pic x.
       01 entrada pic x.
 
       procedure division.
 
       program-begin.
           open extend empleados-archivo
      *    move "s" to si-no
           perform agregar-registros until si-no = "n"
           close empleados-archivo
           stop run
 
           .
       agregar-registros.
      *    move "n" to si-no
           perform obtener-campos until entrada = "s"
           write empleados-registro
           perform reiniciar
           .
 
       obtener-campos.
           move space to empleados-registro
           display identificador
           accept empleados-id
           display nombre
           accept empleados-nombre
           display apellidos
           accept empleados-apellidos
           display edad
           accept empleados-edad
           display telefono
           accept empleados-telefono
           display direccion
           accept empleados-direccion
           perform continuar
 
           .
 
       continuar.
           move "s" to entrada
           if empleados-nombre = space
               display
               "ERROR: No ha introducido un nombre para el empleado,"
      -        "vuelva a intentarlo"
 
               move "n" to entrada
           end-if
           .
 
       reiniciar.
           display "Almacenar otro registro en la base de datos (s/n)??"
           accept si-no
           if si-no = "s"
               move "s" to si-no
 
           else
               move "n" to si-no
           end-if
 
           .
 
       end program create-files.

[Kuk]

@DestinedBroken,

perform obtener-campos until entrada = "s"

Échale un vistazo a la lógica de esta parte. Cuando añades el primer registro, le pones la "s", en un momento dado tienes que limpiar el campo de la "s" porque queda ahí todo el rato.

[Gusaiello]

@DestinedBroken, voy hacer una pregunta que parecerá muy tonta : haz hecho el diagrama antes de comenzar a codificar?

Por que este problema en un programa tan simple se detecta de inmediato siguiendo la lógica del diagrama.

[DestinedBroken]

@Kuk, Gracias compa. Lo puse a vacío tras volver de meter los datos por consola. Ahora funciona todo correcto. Una tontería vaya....

@Gusaiello, diagrama? La primera vez que escucho eso. ¿Te refieres a dibujar en un papel lo que va a hacer el programa? Si es así, decir que el código es de un ejercicio hecho en un curso que estoy siguiendo. A mí me daba error cuando no debería, de ahí que lo haya intentado solucionar.

[Kuk]

@DestinedBroken, una cosa más, esto son ficheros y no BBDD. Cuando hablamos de BBDD entendemos DB2, MySQL, SQL Server etc. Es decir cuando utilizamos SQL.
Esto son ficheros secuenciales. También existen los indexados, que son los abuelos de las BBDD

[Gusaiello]

diagrama? La primera vez que escucho eso

Si, exactamente a eso me refería.
En mis inicios aprendi que el primer paso para realizar un programa era comenzar por el diagrama.
Una vez hecho el diagrama, preparaba un lote de prueba que consistía en preparar un conjunto de datos que permitiera seguir todos los caminos del diagrama.
Y por último hacía la pruebaa de escritorio que consistía en hacer pasar los datos del lote de prueba por el diagrama.
Tal vez parezca un procedimiento algo tedioso, pero puedo garantizarte que a la hora de codificar, jamas me falló un programa ya que la lógica ya había sido probada.

[DestinedBroken]

@DestinedBroken, una cosa más, esto son ficheros y no BBDD. Cuando hablamos de BBDD entendemos DB2, MySQL, SQL Server etc. Es decir cuando utilizamos SQL.
Esto son ficheros secuenciales. También existen los indexados, que son los abuelos de las BBDD

Hola,
Pues he dicho siempre "BBDD" porque es la terminología que usan en un cursillo que estoy siguiendo... Aunque teniendo en cuenta la ristra de fallos que estoy sacando, empiezo a pensar que no di precisamente con el mejor de todos los cursos. Gracias!

@Gusaiello
Sobre lo que comentas, intento presentar la idea del programa con lápiz y papel. Un poco de pseudo código y demás por el estilo. Pero cuando me pongo a programar como tal, lo que hago es probar también lo que he hecho con "tests" tontos. Las capturas mostradas en los hilos de ayuda que creo son precisamente de eso mismo. Para este ejercicio de la BBDD meto registros al más puro estilo "lorem ipsum" y ya.