Cobol Foro

Cobol Foro (https://www.cobolforo.es/index.php)
-   Visual COBOL y DEV-HUB (https://www.cobolforo.es/forumdisplay.php?f=36)
-   -   [Duda] I/O Error al ejecutar una base de datos (https://www.cobolforo.es/showthread.php?t=1411)

DestinedBroken 30 de noviembre de 2021 17:28
I/O Error al ejecutar una base de datos
 
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:

https://i.ibb.co/R9h3f8N/image.png

El código:

Código COBOL:
  1.        program-id. create-files as "primero bases de datos".
  2.  
  3.        environment division.
  4.        configuration section.
  5.        input-output section.
  6.  
  7.        file-control.
  8.        select optional empleados-archivo
  9.            assign to "f:\empleados.dat"
  10.            organization is line sequential.
  11.  
  12.        data division.
  13.        file section.
  14.        fd empleados-archivo.
  15.       *label etiqueta-antigua-para-cintas.
  16.        01 empleados-registro.
  17.          05 empleados-id pic x(6).
  18.          05 empleados-nombre pic x(25).
  19.          05 empleados-apellidos pic x(35).
  20.          05 empleados-edad pic x(3).
  21.          05 empleados-telefono pic x(9).
  22.          05 empleados-direccion pic x(35).
  23.  
  24.        working-storage section.
  25.        01 identificador pic x(36) value 
  26.       -"Introduce un ID del nuevo empleado: ".
  27.        01 nombre pic x(33) value "Introduce un nombre de empleado:".
  28.        01 apellidos pic x(25) value "Introduce los apellidos:".
  29.        01 edad pic x(19) value "Introduce la edad:".
  30.        01 telefono pic x(33) value "Introduce un numero de telefono:".
  31.        01 direccion pic x(25) value "Introduce una direccion:".
  32.  
  33.        01 si-no pic x.
  34.        01 entrada pic x.
  35.  
  36.        procedure division.
  37.  
  38.        program-begin.
  39.            perform procedimiento-de-apertura
  40.            move "s" to si-no
  41.            perform agregar-registros
  42.              until si-no = "n"
  43.            perform procedimiento-de-cierre
  44.  
  45.            .
  46.  
  47.        procedimiento-de-apertura.
  48.            open extend empleados-archivo
  49.            .
  50.  
  51.        procedimiento-de-cierre.
  52.            close empleados-archivo
  53.            .
  54.  
  55.        agregar-registros.
  56.            move "n" to si-no
  57.            perform obtener-campos
  58.              until entrada = "s"
  59.            perform escribir-registro
  60.            perform reiniciar
  61.            .
  62.  
  63.        obtener-campos.
  64.            move space to empleados-registro
  65.            display identificador
  66.            accept empleados-id
  67.            display nombre
  68.            accept empleados-nombre
  69.            display apellidos
  70.            accept empleados-apellidos
  71.            display edad
  72.            accept empleados-edad
  73.            display telefono
  74.            accept empleados-telefono
  75.            display direccion
  76.            accept empleados-direccion
  77.            perform continuar
  78.  
  79.            .
  80.  
  81.        continuar.
  82.            move "s" to entrada
  83.            if empleados-nombre = space
  84.                move "n" to entrada
  85.            end-if
  86.            .
  87.  
  88.        escribir-registro.
  89.            write empleados-registro
  90.            .
  91.  
  92.        reiniciar.
  93.            display "Almacenar otro registro en la base de datos (s/n)??"
  94.            accept si-no
  95.            if si-no = "s"
  96.                move "s" to si-no
  97.            end-if
  98.            if si-no not = "s"
  99.                move "n" to si-no
  100.            end-if
  101.            .
  102.  
  103.        end program create-files.

Kuk 30 de noviembre de 2021 19:06
@DestinedBroken, hola amigo. Por lo pronto esto lo tendrás que modificar porque sinceramente no vale:

Código COBOL:
  1.            if si-no = "s"
  2.                move "s" to si-no
  3.            end-if
  4.            if si-no not = "s"
  5.                move "n" to si-no
  6.            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 30 de noviembre de 2021 22:38
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 1 de diciembre de 2021 16:47
@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:
https://i.ibb.co/y5811fH/image.png

Código COBOL:
  1.        program-id. create-files as "primero bases de datos".
  2.  
  3.        environment division.
  4.        configuration section.
  5.        input-output section.
  6.  
  7.        file-control.
  8.        select optional empleados-archivo
  9.            assign to "f:\empleados_escritura.dat"
  10.            organization is line sequential.
  11.  
  12.        data division.
  13.        file section.
  14.        fd empleados-archivo.
  15.       *label etiqueta-antigua-para-cintas.
  16.        01 empleados-registro.
  17.          05 empleados-id pic x(6).
  18.          05 empleados-nombre pic x(25).
  19.          05 empleados-apellidos pic x(35).
  20.          05 empleados-edad pic x(3).
  21.          05 empleados-telefono pic x(9).
  22.          05 empleados-direccion pic x(35).
  23.  
  24.        working-storage section.
  25.        01 identificador pic x(36) value 
  26.       -"Introduce un ID del nuevo empleado: ".
  27.        01 nombre pic x(33) value "Introduce un nombre de empleado:".
  28.        01 apellidos pic x(25) value "Introduce los apellidos:".
  29.        01 edad pic x(19) value "Introduce la edad:".
  30.        01 telefono pic x(33) value "Introduce un numero de telefono:".
  31.        01 direccion pic x(25) value "Introduce una direccion:".
  32.  
  33.        01 si-no pic x.
  34.        01 entrada pic x.
  35.  
  36.        procedure division.
  37.  
  38.        program-begin.
  39.            open extend empleados-archivo
  40.       *    move "s" to si-no
  41.            perform agregar-registros until si-no = "n"
  42.            close empleados-archivo
  43.            stop run
  44.  
  45.            .
  46.        agregar-registros.
  47.       *    move "n" to si-no
  48.            perform obtener-campos until entrada = "s"
  49.            write empleados-registro
  50.            perform reiniciar
  51.            .
  52.  
  53.        obtener-campos.
  54.            move space to empleados-registro
  55.            display identificador
  56.            accept empleados-id
  57.            display nombre
  58.            accept empleados-nombre
  59.            display apellidos
  60.            accept empleados-apellidos
  61.            display edad
  62.            accept empleados-edad
  63.            display telefono
  64.            accept empleados-telefono
  65.            display direccion
  66.            accept empleados-direccion
  67.            perform continuar
  68.  
  69.            .
  70.  
  71.        continuar.
  72.            move "s" to entrada
  73.            if empleados-nombre = space
  74.                display
  75.                "ERROR: No ha introducido un nombre para el empleado,"
  76.       -        "vuelva a intentarlo"
  77.  
  78.                move "n" to entrada
  79.            end-if
  80.            .
  81.  
  82.        reiniciar.
  83.            display "Almacenar otro registro en la base de datos (s/n)??"
  84.            accept si-no
  85.            if si-no = "s"
  86.                move "s" to si-no
  87.  
  88.            else
  89.                move "n" to si-no
  90.            end-if
  91.  
  92.            .
  93.  
  94.        end program create-files.

Kuk 1 de diciembre de 2021 20:20
@DestinedBroken,

Código COBOL:
  1. 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 2 de diciembre de 2021 11:52
@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 3 de diciembre de 2021 10:57
@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 4 de diciembre de 2021 11:21
@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 6 de diciembre de 2021 10:51
Cita:
Citación del post de DestinedBroken (Mensaje 7360)
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 2 de febrero de 2022 11:00
Cita:
Citación del post de Kuk (Mensaje 7362)
@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.

Josber 2 de febrero de 2022 11:06
Cita:
Citación del post de DestinedBroken (Mensaje 7481)
empiezo a pensar que no di precisamente con el mejor de todos los cursos
Pues no, me parece que no es el mejor curso que hay por ahí :D:D

DestinedBroken 2 de febrero de 2022 11:13
Cita:
Citación del post de Josber (Mensaje 7483)
Pues no, me parece que no es el mejor curso que hay por ahí :D:D
Lo bueno es que me quedan pocos vídeos para terminarlo. Una vez hecho eso, me iré a otro mejor ����


La franja horaria es GMT +2. Ahora son las 16:38.

Powered by: vBulletin, Versión 3.8.7
Derechos de Autor ©2000 - 2026, Jelsoft Enterprises Ltd.