Gracias Rui Pinto (Rapinto)
COBOL Foro
Foro dedicado a COBOL, a la Programación y a la Informática.
Retroceder   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
Forero desde (Registrado)febrero 2015
Argentina
Ubicación Puerto Madryn
Edad69 años
Última Actividad10.04.2021 21:28
PROCEDURE DIVISION
PostsPosts: 311
Ha dicho GraciasEnviado: 100
Ha recibido agradecimientosRecibido: 116
Mejores respuestasSoluiones: 10
ReputaciónReputació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
Forero desde (Registrado)diciembre 2014
España
Ubicación Madrid
Edad36 años
Última Actividad22.04.2021 23:17
PROCEDURE DIVISION
PostsPosts: 1.729
Ha dicho GraciasEnviado: 540
Ha recibido agradecimientosRecibido: 710
Mejores respuestasSoluiones: 93
ReputaciónReputació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
Forero desde (Registrado)febrero 2015
Argentina
Ubicación Córdoba, Villa María
Edad50 años
Última Actividad22.04.2021 19:47
PROCEDURE DIVISION
PostsPosts: 260
Ha dicho GraciasEnviado: 132
Ha recibido agradecimientosRecibido: 122
Mejores respuestasSoluiones: 13
ReputaciónReputación: 18
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
Forero desde (Registrado)diciembre 2014
España
Ubicación Madrid
Edad36 años
Última Actividad22.04.2021 23:17
PROCEDURE DIVISION
PostsPosts: 1.729
Ha dicho GraciasEnviado: 540
Ha recibido agradecimientosRecibido: 710
Mejores respuestasSoluiones: 93
ReputaciónReputació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
Forero desde (Registrado)febrero 2015
Argentina
Ubicación Puerto Madryn
Edad69 años
Última Actividad10.04.2021 21:28
PROCEDURE DIVISION
PostsPosts: 311
Ha dicho GraciasEnviado: 100
Ha recibido agradecimientosRecibido: 116
Mejores respuestasSoluiones: 10
ReputaciónReputació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
Forero desde (Registrado)diciembre 2014
España
Ubicación Madrid
Edad36 años
Última Actividad22.04.2021 23:17
PROCEDURE DIVISION
PostsPosts: 1.729
Ha dicho GraciasEnviado: 540
Ha recibido agradecimientosRecibido: 710
Mejores respuestasSoluiones: 93
ReputaciónReputació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
Forero desde (Registrado)enero 2016
España
Ubicación Valencia
Última Actividad09.01.2019 07:01
PROCEDURE DIVISION
PostsPosts: 14
Ha dicho GraciasEnviado: 9
Ha recibido agradecimientosRecibido: 2
Mejores respuestasSoluiones: 0
ReputaciónReputació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
Forero desde (Registrado)diciembre 2014
España
Ubicación Madrid
Edad36 años
Última Actividad22.04.2021 23:17
PROCEDURE DIVISION
PostsPosts: 1.729
Ha dicho GraciasEnviado: 540
Ha recibido agradecimientosRecibido: 710
Mejores respuestasSoluiones: 93
ReputaciónReputació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 02:52.
Powered by: vBulletin, Versión 3.8.7
Derechos de Autor ©2000 - 2021, Jelsoft Enterprises Ltd.