[Sintaxis] Equivalente COBOL a campos Numeric(15,6)

**Hrmcobol** · 01.03.2022 01:59

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.

**Kuk** · 26.06.2022 11:57

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

Código COBOL:

 01  CAMPO-PCK        PIC S9(9)V9(6) COMP-3. 
 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).

**Fito** · 24.06.2022 22:06

Hola Amigo:

Probaste con:

Código COBOL:

01  variable    comp-2.

Saludos. Fito...

**Kuk** · 26.06.2022 11:57

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)?

**Hrmcobol** · 01.03.2022 01:59

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

**Kuk** · 26.06.2022 11:57

Hrmcobol, prueba con PIC X(20).

Xavier · 17.11.2021 11:04

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.

**Kuk** · 26.06.2022 11:57

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

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

IDENTIFICATION DIVISION Hrmcobol Guardián del Foro ENVIRONMENT DIVISION DATA DIVISION febrero 2015 Puerto Madryn 70 años 01.03.2022 01:59 PROCEDURE DIVISION Posts: 327 Enviado: 107 Recibido: 118 Soluciones: 10 Reputación: 19	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.

IDENTIFICATION DIVISION Fito Guardián del Foro ENVIRONMENT DIVISION DATA DIVISION febrero 2015 Córdoba, Villa María 51 años 24.06.2022 22:06 PROCEDURE DIVISION Posts: 329 Enviado: 175 Recibido: 170 Soluciones: 16 Reputación: 24	Hola Amigo: Probaste con: Código COBOL: 01 variable comp-2. Saludos. Fito...

IDENTIFICATION DIVISION Kuk Administrador ENVIRONMENT DIVISION DATA DIVISION diciembre 2014 Madrid 37 años 26.06.2022 11:57 PROCEDURE DIVISION Posts: 1.998 Enviado: 701 Recibido: 852 Soluciones: 100 Reputación: 10	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

IDENTIFICATION DIVISION Xavier Acabo de llegar... ENVIRONMENT DIVISION DATA DIVISION enero 2016 Valencia 17.11.2021 11:04 PROCEDURE DIVISION Posts: 24 Enviado: 13 Recibido: 3 Soluciones: 0 Reputación: 0	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.

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