Gracias Rui Pinto (Rapinto)
COBOL Foro
Foro dedicado a COBOL, a la Programación y a la Informática.
  COBOL Foro > IDE-s y compiladores COBOL > Cocina Casera > Cocina PowerCOBOL
Cocina PowerCOBOL Rutinas y ejemplos codificados por nuestros foreros.
Comunicados
Otros temas que te pueden interesar
Tema Autor Foro Respuestas Último post
[Aporte] Código para recibir archivo json y leerlo fastpho Cocina PowerCOBOL 12 28 de julio de 2021 01:11
[Sintaxis] Crear archivo indexado desde un XLS Anthony AcuCobol 10 6 de agosto de 2019 17:35
[Sintaxis] PowerCOBOL 7 crear archivo Excel con varias hojas drvedia1981 PowerCOBOL (ActiveX, v4 - v11) 2 10 de abril de 2017 16:34
[Sintaxis] Crear Archivo Xml Anthony AcuCobol 7 25 de febrero de 2016 22:46
[Información] Crear archivo manifiest ¿?¿? Josber COBOL - General 10 22 de diciembre de 2015 07:59
Respuesta
 
Herramientas

  #1
Antiguo 17 de agosto de 2021, 16:54
IDENTIFICATION DIVISION
fastpho
 Forero
Concurso: Primer puesto: Ganador/a del Primer puesto en un concurso - Razón: Acceso a datos Cobol vía web 
ENVIRONMENT DIVISION
Avatar de fastpho
DATA DIVISION
diciembre 2016
Mendoza
51 años
14.01.2022 13:56
PROCEDURE DIVISION
Posts: 191
Enviado: 130
Recibido: 124
Soluciones: 20
Reputación: 18
fastpho is an unknown quantity at this point fastpho is an unknown quantity at this point fastpho is an unknown quantity at this point fastpho is an unknown quantity at this point fastpho is an unknown quantity at this point fastpho is an unknown quantity at this point fastpho is an unknown quantity at this point fastpho is an unknown quantity at this point fastpho is an unknown quantity at this point
Tableta Código para crear archivo Json

Este es un ejemplo desarrollado en powercobol 5 para crear un archivo en formato json usando el control ocx de chilkat que es free toda la documentación de este control esta en el siguiente link

https://www.chilkatsoft.com/refdoc/x...ObjectRef.html
Adjunto el programa
Saludos
Archivos Adjuntos
Tipo de Archivo: rar CrearJson.rar (5,6 KB, 93 descargas Quién descargó)
fastpho no ha iniciado sesión   Responder Con Cita
Han dicho Gracias: 4
Fito (18 de agosto de 2021), Joseg (17 de agosto de 2021), Kuk (30 de octubre de 2021), Rubencentu (30 de septiembre de 2021)
  #2
Antiguo 30 de octubre de 2021, 01:24
IDENTIFICATION DIVISION
Fito
 Guardián del Foro
Agradecimientos: Por muchos agradecimientos de parte de los Foreros - Razón: Por muchos agradecimientos de parte de los Foreros  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
21.01.2022 19:10
PROCEDURE DIVISION
Posts: 302
Enviado: 166
Recibido: 158
Soluciones: 15
Reputación: 22
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 Fito is on a distinguished road
Predeterminado

Holaaaa:

Estoy utilizando este activex y lo que no sé cómo hacer es poner un valor null, false o true.

por ejemplo:

Código JS:
  1. "v": {
  2.       "a": 21,
  3.       "f": false
  4.     }

Gracias.

Saludos

Fito...

---------- Post añadido el 30 de octubre de 2021 a las 02:12 ----------

Por ahora lo he solucionado poniéndole unas clave "&False", "&True" y "&Null" y después leo el archivo generado y lo grabo en otro reemplazando con inspect
Fito no ha iniciado sesión   Responder Con Cita
  #3
Antiguo 30 de octubre de 2021, 16:26
IDENTIFICATION DIVISION
fastpho
 Forero
Concurso: Primer puesto: Ganador/a del Primer puesto en un concurso - Razón: Acceso a datos Cobol vía web 
ENVIRONMENT DIVISION
Avatar de fastpho
DATA DIVISION
diciembre 2016
Mendoza
51 años
14.01.2022 13:56
PROCEDURE DIVISION
Posts: 191
Enviado: 130
Recibido: 124
Soluciones: 20
Reputación: 18
fastpho is an unknown quantity at this point fastpho is an unknown quantity at this point fastpho is an unknown quantity at this point fastpho is an unknown quantity at this point fastpho is an unknown quantity at this point fastpho is an unknown quantity at this point fastpho is an unknown quantity at this point fastpho is an unknown quantity at this point fastpho is an unknown quantity at this point
Predeterminado

Hola @Fito, para poder trabajar con datos tipo booleanos y nulos ("false" , "true , "null") tendria que ser algo como esto :

Código COBOL:
  1.          INVOKE ChilkatJsonObject2 "UpdateString" USING "valores[0].iva"    "21"           RETURNING Success4.
  2.          INVOKE ChilkatJsonObject2 "UpdateBool"   USING "valores[0].falso"  0               RETURNING Success4.
  3.          INVOKE ChilkatJsonObject2 "UpdateBool"   USING "valores[0].verdadero"  1      RETURNING Success4.
  4.          INVOKE ChilkatJsonObject2 "UpdateNull"    USING "valores[0].nulo"                     RETURNING Success4.
  5.  

Saludos
fastpho no ha iniciado sesión   Responder Con Cita
Ha dicho Gracias : 1
Fito (31 de octubre de 2021)
  #4
Antiguo 1 de noviembre de 2021, 23:48
IDENTIFICATION DIVISION
Fito
 Guardián del Foro
Agradecimientos: Por muchos agradecimientos de parte de los Foreros - Razón: Por muchos agradecimientos de parte de los Foreros  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
21.01.2022 19:10
PROCEDURE DIVISION
Posts: 302
Enviado: 166
Recibido: 158
Soluciones: 15
Reputación: 22
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 Fito is on a distinguished road
Predeterminado

Holaaaa:

Ahi pude hacer los nulls y boolean, Muchas gracias.

Ahora otra consulta. Tengo que poner el contenido de todo el json en una variable. Puedo leer el archivo e ir cargando, pero no habrá algún método que lo haga?

Gracias...

Saludos.

Fito...

---------- Post añadido el 1 de noviembre de 2021 a las 21:16 ----------

Hola:

Ahi encontré el método Emit, eso me devuelve el json. El problema le pongo una variable de pic x(1000000) pero solamente carga 8192.

Será un límite del power?

Saludos

Fito
Fito no ha iniciado sesión   Responder Con Cita
  #5
Antiguo 2 de noviembre de 2021, 15:44
IDENTIFICATION DIVISION
fastpho
 Forero
Concurso: Primer puesto: Ganador/a del Primer puesto en un concurso - Razón: Acceso a datos Cobol vía web 
ENVIRONMENT DIVISION
Avatar de fastpho
DATA DIVISION
diciembre 2016
Mendoza
51 años
14.01.2022 13:56
PROCEDURE DIVISION
Posts: 191
Enviado: 130
Recibido: 124
Soluciones: 20
Reputación: 18
fastpho is an unknown quantity at this point fastpho is an unknown quantity at this point fastpho is an unknown quantity at this point fastpho is an unknown quantity at this point fastpho is an unknown quantity at this point fastpho is an unknown quantity at this point fastpho is an unknown quantity at this point fastpho is an unknown quantity at this point fastpho is an unknown quantity at this point
Predeterminado

Cita del post de Fito Ver Mensaje

Ahi encontré el método Emit, eso me devuelve el json. El problema le pongo una variable de pic x(1000000) pero solamente carga 8192.

Será un límite del power?

Saludos

Fito
Es un problema la limitacion de la variable , creo que es un limite del powercobol
fastpho no ha iniciado sesión   Responder Con Cita
Ha dicho Gracias : 1
Fito ( 3 de noviembre de 2021)
  #6
Antiguo 3 de noviembre de 2021, 03:00
IDENTIFICATION DIVISION
Fito
 Guardián del Foro
Agradecimientos: Por muchos agradecimientos de parte de los Foreros - Razón: Por muchos agradecimientos de parte de los Foreros  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
21.01.2022 19:10
PROCEDURE DIVISION
Posts: 302
Enviado: 166
Recibido: 158
Soluciones: 15
Reputación: 22
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 Fito is on a distinguished road
Predeterminado

Cita del post de fastpho Ver Mensaje
Es un problema la limitacion de la variable , creo que es un limite del powercobol
Lo raro es que la variable de esos tamaños la trabaja bien, porque le cargo el json completo y se las banca. Pero debe ser el tema que es un parámetro.

Otra cosa

Código COBOL:
  1.      02 wjson                   pic x(256000000).
  2.      02 redefines wjson.
  3.         03 tabla-wjson occurs 1000000 times.
  4.            04 t-wjson           pic x(256).

Terminé haciéndola de este tamaño y funciona bien, pero puedo poner un solo form por dll, cuando compilo me da error. Así que hago una dll por formulario y no tengo problema.

Gracias amigo.

Saludos

Fito...
Fito no ha iniciado sesión   Responder Con Cita
Ha dicho Gracias : 1
fastpho ( 3 de noviembre de 2021)
  #7
Antiguo 16 de noviembre de 2021, 15:09
IDENTIFICATION DIVISION
Fito
 Guardián del Foro
Agradecimientos: Por muchos agradecimientos de parte de los Foreros - Razón: Por muchos agradecimientos de parte de los Foreros  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
21.01.2022 19:10
PROCEDURE DIVISION
Posts: 302
Enviado: 166
Recibido: 158
Soluciones: 15
Reputación: 22
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 Fito is on a distinguished road
Predeterminado

Holaaaa:

Estoy utilizando este ocx maravilloso sin problemas hasta ahora.

Sólo una duda. Cuando envío un numérico con decimales, un importe. Me lo pone con coma decimal como está configurada las Configuración Regional. Yo ahora lo que hago es por programa antes de cargar el json lo paso a punto y después vuelvo a coma. Pero habrá alguna propiedad donde se pueda configurar eso sin la necesidad de cambiar la configuración regional?

Saludos...

Fito...
Fito no ha iniciado sesión   Responder Con Cita
  #8
Antiguo 16 de noviembre de 2021, 16:25
IDENTIFICATION DIVISION
Kuk
 Administrador
ENVIRONMENT DIVISION
Avatar de Kuk
DATA DIVISION
enero 2015
Madrid
36 años
22.01.2022 22:45
PROCEDURE DIVISION
Posts: 1.926
Enviado: 638
Recibido: 822
Soluciones: 99
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, has probado pasarlo a Editado, del Editado a Alfanumérico y pasarle al OCX el Alfanumérico?



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
  #9
Antiguo 16 de noviembre de 2021, 16:29
IDENTIFICATION DIVISION
fastpho
 Forero
Concurso: Primer puesto: Ganador/a del Primer puesto en un concurso - Razón: Acceso a datos Cobol vía web 
ENVIRONMENT DIVISION
Avatar de fastpho
DATA DIVISION
diciembre 2016
Mendoza
51 años
14.01.2022 13:56
PROCEDURE DIVISION
Posts: 191
Enviado: 130
Recibido: 124
Soluciones: 20
Reputación: 18
fastpho is an unknown quantity at this point fastpho is an unknown quantity at this point fastpho is an unknown quantity at this point fastpho is an unknown quantity at this point fastpho is an unknown quantity at this point fastpho is an unknown quantity at this point fastpho is an unknown quantity at this point fastpho is an unknown quantity at this point fastpho is an unknown quantity at this point
Predeterminado

Hola @Fito, cuando le mandas un campo numerico parece que lee la configuracion regional , la unica forma para que te tome el punto decimal es como lo estas haciendo , o mandarlo como un string ....

Saludos....
fastpho no ha iniciado sesión   Responder Con Cita
Ha dicho Gracias : 1
Fito (17 de noviembre de 2021)
  #10
Antiguo 16 de noviembre de 2021, 16:30
IDENTIFICATION DIVISION
Fito
 Guardián del Foro
Agradecimientos: Por muchos agradecimientos de parte de los Foreros - Razón: Por muchos agradecimientos de parte de los Foreros  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
21.01.2022 19:10
PROCEDURE DIVISION
Posts: 302
Enviado: 166
Recibido: 158
Soluciones: 15
Reputación: 22
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 Fito is on a distinguished road
Predeterminado

tanta vuelta no le di. Como lo solucioné enseguida con lo otro, no me puse a probar tanto.
Fito 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 00:13.
Powered by: vBulletin, Versión 3.8.7
Derechos de Autor ©2000 - 2022, Jelsoft Enterprises Ltd.