Gracias Rui Pinto (Rapinto)
COBOL Foro
Foro dedicado a COBOL, a la Programación y a la Informática.
  COBOL Foro > Programación e Informática > Bases de datos > SQL Server
SQL Server Base de datos SQL Server.
Comunicados
Otros temas que te pueden interesar
Tema Autor Foro Respuestas Último post
[Sintaxis] Uso Equivalente al Timer Anthony AcuCobol 6 25 de marzo de 2019 18:40
[Sintaxis] Equivalente al comando System de RM Cobol apetro PowerCOBOL (ActiveX, v4 - v11) 1 21 de julio de 2016 06:58
[Sintaxis] Equivalencia de formato de campos numéricos Galileo COBOL - General 1 29 de enero de 2016 08:19
[Sintaxis] Campos VARBINARY ó BLOB en COBOL Josber MySQL 4 3 de diciembre de 2015 12:26
Respuesta
 
Herramientas

  #1
Antiguo 18 de diciembre de 2015, 17:44
IDENTIFICATION DIVISION
Hrmcobol
 Guardián del Foro
Guardián del Foro: Guardián del espíritu y clima del Foro - Razón: Por implicación en la vida del Foro 
ENVIRONMENT DIVISION
Avatar de Hrmcobol
DATA DIVISION
febrero 2015
Puerto Madryn
69 años
08.10.2021 16:00
PROCEDURE DIVISION
Posts: 321
Enviado: 106
Recibido: 118
Soluiones: 10
Reputación: 18
Hrmcobol is a glorious beacon of light Hrmcobol is a glorious beacon of light Hrmcobol is a glorious beacon of light Hrmcobol is a glorious beacon of light Hrmcobol is a glorious beacon of light Hrmcobol is a glorious beacon of light Hrmcobol is a glorious beacon of light Hrmcobol is a glorious beacon of light Hrmcobol is a glorious beacon of light
Relación de tablas Equivalente COBOL a campos Numeric(15,6)

Hola Camaradas, tengo problemas para leer un campo Numeric(15,6) de una tabla de SqlServer, me devuelve valor Cero, pero si los cambio a Float, la cosa funciona, el tema es que no puedo cambiar la tabla ya que es de otro soft.
Estoy usando PW9.0 cn Db Access Control.
Alguna Idea. Saludos y Gracias.
Hrmcobol no ha iniciado sesión   Responder Con Cita
  #2
Antiguo 18 de diciembre de 2015, 18:20
IDENTIFICATION DIVISION
Kuk
 Administrador
ENVIRONMENT DIVISION
Avatar de Kuk
DATA DIVISION
diciembre 2014
Madrid
36 años
24.10.2021 00:50
PROCEDURE DIVISION
Posts: 1.839
Enviado: 589
Recibido: 767
Soluiones: 95
Reputación: 10
Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road
Predeterminado

Hrmcobol, prueba con estas opciones a ver cual te funciona:

Código COBOL:
  1.  01  CAMPO-PCK        PIC S9(9)V9(6) COMP-3.
  2.  01  CAMPO-BIN        PIC S9(9)V9(6) COMP-4.

Float es binario. Por otro lado, en DB2 los DECIMAL corresponden a COMP-3 o lo que es lo mismo PACKED-DECIMAL. El NUMERIC no lo he tratado nunca (ni SQLServer tampoco).



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 no ha iniciado sesión   Responder Con Cita
  #3
Antiguo 18 de diciembre de 2015, 22:16
IDENTIFICATION DIVISION
Fito
 Guardián del Foro
Guardián del Foro: Guardián del espíritu y clima del Foro - Razón: Por el Avatar  Activista del Foro: Activista del Foro - Razón: Por aportar ideas 
ENVIRONMENT DIVISION
Avatar de Fito
DATA DIVISION
febrero 2015
Córdoba, Villa María
50 años
23.10.2021 03:14
PROCEDURE DIVISION
Posts: 283
Enviado: 149
Recibido: 141
Soluiones: 14
Reputación: 20
Fito is on a distinguished road Fito is on a distinguished road Fito is on a distinguished road Fito is on a distinguished road Fito is on a distinguished road Fito is on a distinguished road Fito is on a distinguished road Fito is on a distinguished road Fito is on a distinguished road Fito is on a distinguished road
Predeterminado

Hola Amigo:

Probaste con:

Código COBOL:
  1. 01  variable    comp-2.

Saludos. Fito...
Fito no ha iniciado sesión   Responder Con Cita
  #4
Antiguo 19 de diciembre de 2015, 12:58
IDENTIFICATION DIVISION
Kuk
 Administrador
ENVIRONMENT DIVISION
Avatar de Kuk
DATA DIVISION
diciembre 2014
Madrid
36 años
24.10.2021 00:50
PROCEDURE DIVISION
Posts: 1.839
Enviado: 589
Recibido: 767
Soluiones: 95
Reputación: 10
Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road
Predeterminado

Fito, COMP-1 y COMP-2 son justamente los FLOAT de signle y double precision.
Hrmcobol, dices que si con FLOAT te funciona pero cambiando en la tabla o poniendolo en el programa COBOL (COMP-1/COMP-2)?



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 no ha iniciado sesión   Responder Con Cita
  #5
Antiguo 22 de diciembre de 2015, 01:22
IDENTIFICATION DIVISION
Hrmcobol
 Guardián del Foro
Guardián del Foro: Guardián del espíritu y clima del Foro - Razón: Por implicación en la vida del Foro 
ENVIRONMENT DIVISION
Avatar de Hrmcobol
DATA DIVISION
febrero 2015
Puerto Madryn
69 años
08.10.2021 16:00
PROCEDURE DIVISION
Posts: 321
Enviado: 106
Recibido: 118
Soluiones: 10
Reputación: 18
Hrmcobol is a glorious beacon of light Hrmcobol is a glorious beacon of light Hrmcobol is a glorious beacon of light Hrmcobol is a glorious beacon of light Hrmcobol is a glorious beacon of light Hrmcobol is a glorious beacon of light Hrmcobol is a glorious beacon of light Hrmcobol is a glorious beacon of light Hrmcobol is a glorious beacon of light
Predeterminado

Hola Amigos, no logro que funciones, probé con COMP-3/4/5 y lee ceros, con COMP-1/2 me da error de compilación, Me imagino que estoy haciendo algo mal y no lo veo.
Veremos como salgo
Saludos
Hrmcobol no ha iniciado sesión   Responder Con Cita
  #6
Antiguo 22 de diciembre de 2015, 08:21
IDENTIFICATION DIVISION
Kuk
 Administrador
ENVIRONMENT DIVISION
Avatar de Kuk
DATA DIVISION
diciembre 2014
Madrid
36 años
24.10.2021 00:50
PROCEDURE DIVISION
Posts: 1.839
Enviado: 589
Recibido: 767
Soluiones: 95
Reputación: 10
Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road
Predeterminado

Hrmcobol, prueba con PIC X(20).



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 no ha iniciado sesión   Responder Con Cita
  #7
Antiguo 2 de febrero de 2016, 23:36
IDENTIFICATION DIVISION
Xavier
 Acabo de llegar...
ENVIRONMENT DIVISION
Avatar de Xavier
DATA DIVISION
enero 2016
Valencia
04.10.2021 09:51
PROCEDURE DIVISION
Posts: 24
Enviado: 13
Recibido: 3
Soluiones: 0
Reputación: 0
Xavier is on a distinguished road
Predeterminado

Soy nuevo en el foro y estoy viendo mensajes antiguos, pero por si le sirve a alguien, la forma de relacionar el campo SqlServer Numeric(15,6) o Decimal(15,6) (9 enteros y 6 decimales) con un campo de PWC sería definirlo de la siguiente manera PIC S9(9)V9(6) PACKED-DECIMAL.
Xavier no ha iniciado sesión   Responder Con Cita
  #8
Antiguo 3 de febrero de 2016, 07:53
IDENTIFICATION DIVISION
Kuk
 Administrador
ENVIRONMENT DIVISION
Avatar de Kuk
DATA DIVISION
diciembre 2014
Madrid
36 años
24.10.2021 00:50
PROCEDURE DIVISION
Posts: 1.839
Enviado: 589
Recibido: 767
Soluiones: 95
Reputación: 10
Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road
Predeterminado

Xavier, PACKED-DECIMAL equivale a COMP-3, BINARY equivale a COMP o COMP-4



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 no ha iniciado sesión   Responder Con Cita
Respuesta


Usuarios activos actualmente viendo este tema: 1 (0 miembros y 1 visitantes)
 
Herramientas

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



La franja horaria es GMT +1. Ahora son las 04:41.
Powered by: vBulletin, Versión 3.8.7
Derechos de Autor ©2000 - 2021, Jelsoft Enterprises Ltd.