Cobol Foro
Navegación en el Foro
Retroceder   Cobol Foro Entornos de desarrollo y compiladores Cobol Fujitsu COBOL PowerCOBOL (ActiveX, v4 - v11)
PowerCOBOL (ActiveX, v4 - v11) Versiones del IDE basadas en ActiveX
 
Otros temas que te pueden interesar
Tema Autor Foro Respuestas Último post
[Compilador] String para Decimal Joseg PowerCOBOL (ActiveX, v4 - v11) 16 20 de marzo de 2026 12:52
[Sintaxis] Leer dato en un archivo Json con Chilkat... Fito PowerCOBOL (ActiveX, v4 - v11) 12 7 de agosto de 2024 19:20
Nuevo tipo de spameros en el foro Kuk Charladero - espacio libre 2 10 de junio de 2019 12:04
[Sintaxis] Campos tipo BLOB mysql atncasiello PowerCOBOL (ActiveX, v4 - v11) 2 8 de diciembre de 2018 13:25
[Sintaxis] Buscar un dato usando Control ctList Ciro PowerCOBOL (ActiveX, v4 - v11) 3 17 de agosto de 2017 19:47

Respuesta
 
Herramientas

  #1
Antiguo 2 de mayo de 2018, 16:46
Fito
Guardián del Foro
Agradecimientos: Por muchos agradecimientos de parte de los Foreros - Issue reason: Por muchos agradecimientos de parte de los Foreros Guardián del Foro: Guardián del espíritu y clima del Foro - Issue reason: Por el Avatar Activista del Foro: Activista del Foro - Issue reason: Por aportar ideas 
Última Actividad 19.09.2026 13:19
Posts Posts: 458
Likes enviados Enviados: 267
Likes recibidos Recibidos: 243
Tableta Tipo de dato decimal en mysql...
0 Inactivo Inactivo

Hola Amigos:

Tengo que acceder a datos de una base en mysql, lo estoy haciendo con el control dbaccess de power 8, hasta ahi todo perfecto, el tema es que los importes están en tipo decimal, por ejemplo decimal(10,2), según el control dbaccess la "traduccion" power seria pic s9(8)v99. Lo hago así, no me da error de datos, pero no me trae nada. Con los otros tipos de datos no tengo ningún inconveniente.

Alguna idea que me pueda ayudar?

Gracias. Saludos.

Fito...
Fito is offline   Responder Con Cita
  #2
Antiguo 2 de mayo de 2018, 20:36
Kuk
Administrador
Última Actividad 19.09.2026 20:11
Posts Posts: 2.500
Likes enviados Enviados: 1037
Likes recibidos Recibidos: 1207

Fito, prueba con:

Código COBOL:
  1.  01  variante-1         s9(8)v99 COMP-3.
  2.  01  variante-2         s9(8)v99 COMP-4.
  3.  01  variante-5         s9(8)v99 COMP-5.



NORMAS DEL FORO - para garantizar el buen funcionamiento del Foro.
¿Te han ayudado? NO TE OLVIDES de darle a
¿Quieres dirigirte a alguien en tu post? Notifícale haciendo clic en su Nick
Kuk is offline   Responder Con Cita
  #3
Antiguo 2 de mayo de 2018, 22:16
Fito
Guardián del Foro
Agradecimientos: Por muchos agradecimientos de parte de los Foreros - Issue reason: Por muchos agradecimientos de parte de los Foreros Guardián del Foro: Guardián del espíritu y clima del Foro - Issue reason: Por el Avatar Activista del Foro: Activista del Foro - Issue reason: Por aportar ideas 
Última Actividad 19.09.2026 13:19
Posts Posts: 458
Likes enviados Enviados: 267
Likes recibidos Recibidos: 243

Gracias KUK por responder:

Con ninguna de las tres opciones funciona. Estuve haciendo pruebas y se me ocurrió hacer directamente display de la propiedad del dbaccess y viene en cero.

El contro dbaccess se llama BD y la propiedad plista.

Código COBOL:
  1.     display "plista" of BD

Es como que no lo toma. Muy raro.

Saludos.

Fito...
Fito is offline   Responder Con Cita
  #4
Antiguo 2 de mayo de 2018, 22:51
Kuk
Administrador
Última Actividad 19.09.2026 20:11
Posts Posts: 2.500
Likes enviados Enviados: 1037
Likes recibidos Recibidos: 1207

Fito, prueba con:

Código COBOL:
  1.  01  variante-1         COMP-1.
  2.  01  variante-2         COMP-2.

Por otro lado, no sé si se puede hacer DISPLAY directamente. Lo mismo simplemente compila pero no accede al dato que interesa.



NORMAS DEL FORO - para garantizar el buen funcionamiento del Foro.
¿Te han ayudado? NO TE OLVIDES de darle a
¿Quieres dirigirte a alguien en tu post? Notifícale haciendo clic en su Nick
Kuk is offline   Responder Con Cita
  #5
Antiguo 3 de mayo de 2018, 03:16
Dasije
Forero Senior
Última Actividad 06.03.2022 17:04
Posts Posts: 173
Likes enviados Enviados: 1
Likes recibidos Recibidos: 79

Son limitaciones de compatibilidad en el control DB-ACCESS, utiliza el ADO.



Empresa de desarrollo de aplicaciones en COBOL.

DASIJE INFORMATICA, S.L.
C/ TOMAS BRETON 20
11406 JEREZ DE LA FRONTERA
CADIZ

Teléfono : 956 11 21 11
Web: http://www.dasije.es / DASIJE INFORMATICA
E-m@il: clientes(@)dasije.es
Dasije is offline   Responder Con Cita
  #6
Antiguo 3 de mayo de 2018, 11:46
Joseg
El Foro es mi casa
Activista del Foro: Activista del Foro - Issue reason: Por participación activa Innovación: Por aportar innovaciones - Issue reason: Por aportar soluciones innovadoras en varias ocasiones 
Última Actividad 17.09.2026 18:23
Posts Posts: 401
Likes enviados Enviados: 130
Likes recibidos Recibidos: 179

Eu só recomendo COMP-3 ou PACKED-DECIMAL, é o formato "tecnicamente" igual ao Mysql.
Joseg is offline   Responder Con Cita
  #7
Antiguo 3 de mayo de 2018, 12:27
Kuk
Administrador
Última Actividad 19.09.2026 20:11
Posts Posts: 2.500
Likes enviados Enviados: 1037
Likes recibidos Recibidos: 1207

Joseg, COMP-3 es un formato no nativo que viene del Mainframe. En DB2 es tolerado para el tipo decimal, pero no creo que sea el caso de MySQL.

Sospecho que tratándose de un tipo nativo, deberá ser el float, el cual es representado por COMP-1 y COMP-2, para precision simple o doble, respectivamente.



NORMAS DEL FORO - para garantizar el buen funcionamiento del Foro.
¿Te han ayudado? NO TE OLVIDES de darle a
¿Quieres dirigirte a alguien en tu post? Notifícale haciendo clic en su Nick
Kuk is offline   Responder Con Cita
  #8
Antiguo 3 de mayo de 2018, 15:09
Joseg
El Foro es mi casa
Activista del Foro: Activista del Foro - Issue reason: Por participación activa Innovación: Por aportar innovaciones - Issue reason: Por aportar soluciones innovadoras en varias ocasiones 
Última Actividad 17.09.2026 18:23
Posts Posts: 401
Likes enviados Enviados: 130
Likes recibidos Recibidos: 179

Esta tabela é para PostgreSQL, mas também se aplica a MySql:
D.4.4 Type Mapping

Eu tive problemas em cálculos antes de usar COMP-3, posteriormente um programador de C me explicou como o MySql trata as colunas "Decimal" e passei a usar sempre "PACKED-DECIMAL", até agora tudo ok!
Joseg is offline   Responder Con Cita
  #9
Antiguo 4 de mayo de 2018, 14:54
Fito
Guardián del Foro
Agradecimientos: Por muchos agradecimientos de parte de los Foreros - Issue reason: Por muchos agradecimientos de parte de los Foreros Guardián del Foro: Guardián del espíritu y clima del Foro - Issue reason: Por el Avatar Activista del Foro: Activista del Foro - Issue reason: Por aportar ideas 
Última Actividad 19.09.2026 13:19
Posts Posts: 458
Likes enviados Enviados: 267
Likes recibidos Recibidos: 243

Hola Amigos:

Me parece que, como dice Dasije, es compatibilidad con el compronente. Como lo que tengo que hacer es pasar los datos a mi sistema, no es que tenga que interactuar con la BBDD, antes que ponerme a renegar con ADO (sé de qué se trata, pero nunca lo he usado), exporté a excel la tabla y la tomo desde ahí. De esa manera lo pude hacer.

Muchas gracias por toda la ayuda.

Saludos.

Fito...
Fito is offline   Responder Con Cita
Respuesta



Derechos de Publicación
No puedes publicar nuevos temas
No puedes publicar posts/responder
No puedes adjuntar archivos
No puedes editar tus posts

BB code is habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado

Saltar a Foro


La franja horaria es GMT +2. Ahora son las 15:59.
Powered by: vBulletin, Versión 3.8.7
Derechos de Autor ©2000 - 2026, Jelsoft Enterprises Ltd.