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 > Fujitsu COBOL > PowerCOBOL (ActiveX, v4 - v11)
PowerCOBOL (ActiveX, v4 - v11) Versiones del IDE basadas en ActiveX
Comunicados
Respuesta
 
Herramientas

  #11
Antiguo 3 de junio de 2021, 01:30
IDENTIFICATION DIVISION
fastpho
 Novato Senior
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
22.09.2021 13:23
PROCEDURE DIVISION
Posts: 171
Enviado: 115
Recibido: 97
Soluiones: 19
Reputación: 14
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
2 usuarios han marcado este post como "Solución"

@AHidalgo, Hola Ana , son pocos los datos que nos has dado , como para ayudarte , ni tampoco cuales son las metodos que has probado....
Pero tenes varias formas de hacerlo , para comunicarte con la api podes hacerlo via clase COM ( WinHttp.WinHttpRequest.5.1)

Te paso un ejemplo:
Código COBOL:
  1.  WORKING-STORAGE SECTION.
  2. *----------------------------------------------------------------------
  3. * Variables para el Objeto WinHttpRequest
  4. *----------------------------------------------------------------------
  5.  01  HttpJob           pic x(128) value "WinHttp.WinHttpRequest.5.1".
  6.  01  WinHttpReq        usage object reference OLE.
  7. *> POST , GET , PUT
  8.  01  TipoEnvio         pic x(4) value "POST".
  9. * Verdero o falso dependiendo si la comunicacion es asyn -  sync
  10.  01 OLE-TRUE           PIC 1(1)  BIT VALUE B"1".
  11.  01 OLE-FALSE          PIC 1(1)  BIT VALUE B"0".
  12.  
  13.  01 ServerName         pic x(256) value "http://contamen.com.ar/concursocobol/forerosdb.php".
  14.  01 JsonParametro      pic x(256) value '[{"Action":"LeeAllForero"}]'. *> PHP Pide parametros json
  15.  
  16.  01 status-resquest    pic  S9(9) COMP-5.
  17.  01 status-string      pic  x(256).
  18.  01 RespJson           pic  x(8192).
  19.  01 StringNull         pic  x value spaces.
  20. *
  21. * actualiza string que manda [{"fid":"5","fnombre":"emma","Action":"ActualizaForero","finfo":"estudiante","fcumple":"2006-12-06"}]  
  22. * insert    string que manda [{"fnombre":"Lisi Urbano Moyano","Action":"InsertarForero","finfo":"Docente","fcumple":"1963-08-04"}]
  23. *
  24.  
  25. *-------------------------------------------------
  26. * variables para json - script.control
  27. *-------------------------------------------------
  28.  01 jsCodigo         pic X(8192).
  29.  01 jsonArray        pic X(8192).
  30.  01 StringItemArray  pic x(256).
  31.  01 scriptFuncion    pic x(126) value "function js_arrayLength(a){if(a==null||a.length==null||a.length==undefined){return 0}else return a.length;}js_arrayLength(arr)".
  32.  01 CantidadArray    pic s9(9) comp-5.
  33.  01 ResultadoArray   pic X(8192).
  34.  
  35.  01 StringFuncion-Inicio. *> respuesta inicial del json
  36.     02                     pic x(4) value 'arr['.
  37.     02 Indice              pic 9(6).
  38.     02                     pic x(3) value ']["'.
  39.  
  40.  01 StringFuncion-Final.   *> respuesta final del json
  41.     02                     pic x(2) value '"]'.
  42.  
  43.  01 PropObjCodigo          pic x(3)  value 'fid'.        *> 4 enteros
  44.  01 PropObjNombre          pic x(7)  value 'fnombre'.    *> 50 string
  45.  01 PropObjCumple          pic x(7)  value 'fcumple'.    *> date formato aaaa-mm-dd
  46.  01 PropObjInfo            pic x(5)  value 'finfo'.      *> 200 string
  47.  
  48.  01 ArmoJson-General-Inicio.
  49.     02                     pic x(2) value '[{'.
  50.  01 ArmoJson-General-Final.
  51.     02                     pic x(2) value '}]'.
  52.      
  53. *-------------------------------------------------------------
  54.  
  55.  
  56. *--------------------------
  57. * variables para la tabla
  58. *---------------------------
  59.  01 CamposSalida-Codigo       pic x(4).
  60.  01 CamposSalida-Nombre       pic x(50).
  61.  01 CamposSalida-Cumple.
  62.     03 C-SG       pic xx.
  63.     03 C-AA       pic xx.
  64.     03 filler     pic x value "-".
  65.     03 C-MM       pic xx.
  66.     03 filler     pic x value "-".
  67.     03 C-DD       pic xx.
  68.  01 CamposSalida-Info         pic x(200).
  69.  01 LINEA-FECHA-AUX.
  70.     03 L1-D   PIC XX.
  71.     03 filler pic x value "/".        
  72.     03 L1-M   PIC XX.
  73.     03 filler pic x value "/".        
  74.     03 L1-S   PIC XX.
  75.     03 L1-A   PIC XX.
  76. *---------------------------  
  77. * indices
  78.  01 I                         pic 9(6).
  79.  01 W-ROW                     pic s9(9) comp-5.
  80. *-----------------------------------------
  81.  01  LINEA                           PIC X(1024).
  82.  01  OLE-ERROR-METHOD                 PIC X(256).
  83.  01  OLE-ERROR-INFO.                                                
  84.      03  OLE-ERROR-TYPE                  PIC X(001).                          
  85.      03  OLE-ERROR-WCODE                 PIC X(002).                          
  86.      03  ROLE-ERROR-WCODE REDEFINES OLE-ERROR-WCODE  PIC S9(04) COMP-5.
  87.      03  OLE-ERROR-SCODE                 PIC X(004).                          
  88.      03  ROLE-ERROR-SCODE REDEFINES OLE-ERROR-SCODE PIC S9(09) COMP-5.
  89.  PROCEDURE       DIVISION.
  90.  DECLARATIVES.
  91.  OLE-ERROR SECTION.    
  92.        USE AFTER EXCEPTION OLEEXCEPTION.                          
  93.             INVOKE EXCEPTION-OBJECT "GET-ERROR-TYPE"              
  94.                  RETURNING OLE-ERROR-TYPE.  
  95. *      display "OLE-ERROR-TYPE: " ,        OLE-ERROR-TYPE.    
  96.        IF OLE-ERROR-TYPE = "1"                                
  97.             INVOKE EXCEPTION-OBJECT "GET-SCODE"  RETURNING ROLE-ERROR-SCODE                
  98.             INVOKE EXCEPTION-OBJECT "GET-SCODE-TEXT"   RETURNING LINEA                        
  99.             MOVE LINEA TO OLE-ERROR-METHOD                  
  100.             GO TO ERROR-EXIT
  101.        ELSE                                              
  102.             INVOKE EXCEPTION-OBJECT "GET-WCODE"  RETURNING OLE-ERROR-WCODE                
  103.             INVOKE EXCEPTION-OBJECT "GET-SCODE"    RETURNING OLE-ERROR-SCODE  
  104. *           display "   OLE-ERR-WCODE: " , OLE-ERROR-WCODE
  105. *           display "   OLE-ERR-SCODE: " , OLE-ERROR-SCODE        
  106.             GO TO ERROR-EXIT.                
  107.  
  108.  OLE-ERROR-MANEJO.
  109.        EXIT.
  110.  END DECLARATIVES.
  111.  
  112.  
  113.  Programa Section.
  114.        
  115.  Comienzo.
  116. *---------------------------
  117. * Limpio Pantalla
  118.      move spaces to "Text" OF RESP-JSON.
  119.      move spaces to "Text" OF campo-estado.
  120.      move spaces to "Text" OF campo-registros.
  121.      INVOKE table2 "ClearTable".
  122.      INVOKE table2 "Refresh".    
  123.    
  124. *---------------------------
  125. * vacio la respuesta
  126. *    
  127.      INITIALIZE RespJson.
  128.      move spaces to RespJson.    
  129. *---------------------------
  130. * Establece como lenguaje "VBScript" or "JScript".
  131.      move "JScript" to "Language" OF ScriptControl1.
  132.    
  133.      
  134.      
  135. *-----------------    
  136.  INICIO-Peticion.
  137.  
  138.    
  139. *-----------------------------
  140. * Crea el objeto WinHttpRequest      
  141.      invoke OLE "CREATE-OBJECT"   using HttpJob returning WinHttpReq.
  142. *------------------------------
  143. * Open la  HTTP request.
  144.      invoke WinHttpReq  "OPEN" using   TipoEnvio ,  ServerName , ole-true.
  145. *---------------------------------------------------------------------------
  146.    
  147. *------------------------------    
  148. * Envia HTTP request.
  149.      invoke WinHttpReq  "send" using JsonParametro.
  150. *---------------------------------------------------------------------------
  151. *------------------------------    
  152. * Espera la respuesta completa
  153.      invoke WinHttpReq  "WaitForResponse" using  ole-true.
  154. *-------------------------------
  155.  
  156. *--------------------------------------------
  157. * Muesta Estado de comunicacion
  158.  
  159.      invoke WinHttpReq  "get-StatusText" returning status-string.
  160.      invoke WinHttpReq  "get-Status"     returning status-resquest.
  161.      move status-resquest to "Text" OF campo-estado.
  162.      INVOKE campo-estado "Refresh".
  163.    
  164. *     display "status de solicitud: "  , status-resquest
  165.      if status-resquest not = 200 then
  166. /        display "error"
  167.        exit program
  168.       end-if.
  169. *-------------------------------
  170. *   Recibe la respuesta Cabecera
  171.      invoke WinHttpReq  "GetAllResponseHeaders" returning RespJson.
  172. *Muestro la resp pura en el campo      
  173.      move RespJson to "Text" OF campo-cabecera.
  174.      INVOKE campo-cabecera "Refresh".
  175.  
  176. *-------------------------------------------------------------------
  177. *   Recibe la respuesta en formato json segun lo solicitado
  178.      invoke WinHttpReq  "get-ResponseText" returning RespJson.
  179. *-------------------------------
  180. * Libera el objeto creado
  181.      set WinHttpReq            to null.
  182.  
  183. *-----------------------------------------------------------------
  184. *Muestro la resp pura en el campo      
  185. *Analizamos el Json con scriptcontrol.
  186.      move RespJson to "Text" OF RESP-JSON.
  187.      INVOKE RESP-JSON "Refresh".
  188.  
  189.  FIN-Peticion.      
  190.  
  191.  
  192.  PROCESO-Json.
  193.    
  194. *----------------------------------------------------------------------------
  195. * Verifico la cantidad de array en la RespJson
  196. *     CantidadArray
  197. *     devuelve la cantidad de registros en el json
  198.  
  199.      move RespJson to jsonArray.
  200.      perform Funcion-getArrayLenght thru END-Funcion-getArrayLenght.
  201. *----------------------------------------------
  202. * Muestro la cantidad de registros devueltos
  203. *----------------------------------------------
  204.      move CantidadArray to    "Text" OF campo-registros.
  205.      INVOKE campo-registros "Refresh".
  206. *----------------------------------------------------------------------------    
  207. *indice tabla2.
  208.      MOVE 1 TO W-ROW.
  209. *----------------------------------------------------------------------------
  210. * Leo los registros de array en la RespJson
  211. * de acuerdo a la CantidadArray
  212.      move 0              to Indice.
  213.      PERFORM VARYING I FROM 1 BY 1 UNTIL I > CantidadArray
  214. *         *> Primer Obj Codigo  
  215.          move    spaces               to StringItemArray
  216.          string  StringFuncion-Inicio delimited by size
  217.                  PropObjCodigo        delimited by size
  218.                  StringFuncion-Final  delimited by size
  219.                  into StringItemArray
  220.          perform   Funcion-getArrayItem thru END-Funcion-getArrayItem  
  221.         move ResultadoArray to CamposSalida-Codigo
  222.  
  223.  
  224.        
  225. *         *> Segundo Obj Nombre
  226.          move    spaces               to StringItemArray          
  227.          string  StringFuncion-Inicio delimited by size
  228.                  PropObjNombre        delimited by size
  229.                  StringFuncion-Final  delimited by size
  230.                  into StringItemArray
  231.          perform   Funcion-getArrayItem thru END-Funcion-getArrayItem  
  232.          move ResultadoArray to  CamposSalida-Nombre
  233.  
  234. *         *> Tercer Obj Fecha
  235.          move    spaces               to StringItemArray          
  236.          string  StringFuncion-Inicio delimited by size
  237.                  PropObjCumple        delimited by size
  238.                  StringFuncion-Final  delimited by size
  239.                  into StringItemArray
  240.          perform   Funcion-getArrayItem thru END-Funcion-getArrayItem  
  241.          move ResultadoArray to  CamposSalida-Cumple        
  242.          move C-SG TO L1-S
  243.          MOVE C-AA TO L1-A
  244.          MOVE C-MM TO L1-M
  245.          MOVE C-DD TO L1-D
  246.        
  247.  
  248. *         *> Cuartto Obj Informacion
  249.          move    spaces               to StringItemArray          
  250.          string  StringFuncion-Inicio delimited by size
  251.                  PropObjInfo        delimited by size
  252.                  StringFuncion-Final  delimited by size
  253.                  into StringItemArray
  254.          perform   Funcion-getArrayItem thru END-Funcion-getArrayItem  
  255.          move ResultadoArray to  CamposSalida-Info                
  256.          
  257.  
  258.           add 1 to  Indice
  259. *        
  260.                MOVE CamposSalida-Codigo               TO POW-TEXT(W-ROW 1) OF TABLE2
  261.                MOVE CamposSalida-Nombre               TO POW-TEXT(W-ROW 2) OF TABLE2
  262.                MOVE LINEA-FECHA-AUX               TO POW-TEXT(W-ROW 3) OF TABLE2
  263.                MOVE CamposSalida-Info                 TO POW-TEXT(W-ROW 4) OF TABLE2
  264.                ADD 1 TO W-ROW
  265.  
  266.      END-PERFORM.
  267. *
  268. *
  269.  FIN-PROCESO-Json.
  270.  
  271.  TERMINO.
  272.      exit program.    
  273.    
  274. *------------------------------------------------------------------    
  275.  Funcion-getArrayLenght. *> funcion devuelve la cantidad de arrays
  276. *------------------------------------------------------------------
  277. * determina la cantidad de array's
  278.       move zeros  to CantidadArray.
  279.       move spaces to jsCodigo.
  280.  
  281.  
  282.       string "var arr = "
  283.              jsonArray delimited by size into jsCodigo.
  284.       INVOKE ScriptControl1 "ExecuteStatement" USING jsCodigo.
  285.  
  286.       INVOKE ScriptControl1 "Eval" USING scriptFuncion RETURNING CantidadArray.
  287.  
  288.        
  289.  END-Funcion-getArrayLenght. EXIT.
  290. *getSimpleArrayItem    
  291. *---------------------------------------------------------------------------------------
  292.  Funcion-getArrayItem. *> lee los datos del array de acuerdo a la propiedad solicitada
  293. *---------------------------------------------------------------------------------------
  294.  
  295.        move spaces to jsCodigo.
  296.        move spaces to ResultadoArray.
  297.  
  298.        string "var arr = "
  299.              jsonArray delimited by size into jsCodigo
  300.  
  301.        INVOKE ScriptControl1 "ExecuteStatement" USING jsCodigo
  302.        INVOKE ScriptControl1 "Eval" USING StringItemArray     RETURNING ResultadoArray.
  303.  
  304.      
  305.  END-Funcion-getArrayItem. EXIT.
  306. *------------------------------------------------------------------
  307.  
  308.  
  309.  
  310.  
  311.  ERROR-EXIT.
  312.      exit PROGRAM.

y la otra para comunicarte puede ser via el control ScriptControl , luego para parsear el JSON que devuelve la api lo lees con la libreria ocx de chilkat

Te paso un ejemplo:
Código COBOL:
  1.  WORKING-STORAGE SECTION.
  2.  01 scriptCode                      pic x(32768).
  3.  01 script redefines scriptCode.
  4.     03 scriptCode1                  pic x(8192).
  5.     03 scriptCode2                  pic x(8192).
  6.     03 scriptCode3                  pic x(8192).
  7.     03 scriptCode4                  pic x(8192).
  8.  01 vbCRLF                          pic x(2) value X"0D0A".
  9.  01 Estado                          pic s9(5) comp-5 VALUE ZEROS.        
  10.  
  11.  01 ReturnValue               pic s9(5) comp-5 VALUE ZEROS.    
  12.  01 CantidadOBJ               pic s9(9) comp-5 VALUE ZEROS.
  13.  
  14.  01 IndiceArray               pic s9(9) comp-5 VALUE ZEROS.
  15.  01 Indice                    pic 9(6).  
  16. ****************
  17. * campos array
  18. ****************
  19.  01 ObjuserId                 pic X(4).
  20.  01 ObjId                     pic X(4).
  21.  01 ObjTitle                  pic X(50).
  22.  01 ObjCompleted              pic X(5).
  23.  
  24.  
  25.  01 ObJsolicitar              pic x(200).
  26. *01 ObjCampo                  pic x(30).
  27. * [url=https://www.chilkatsoft.com/refdoc/xChilkatJsonObjectRef.html]JsonObject ActiveX Reference Documentation[/url]
  28.  01 POW-PCMLIST OBJECT REFERENCE POW-CLISTITEM.
  29.  01 WK-IDX PIC S9(9) COMP-5.
  30.  
  31.  PROCEDURE       DIVISION.
  32. *---------------------------------------------------------------
  33. * LEO usando script
  34.      
  35.       INVOKE pow-self "ThruEvents".
  36.       move  11 to  "MousePointer" OF pow-self.
  37.       move pow-true  to "Visible" OF CmStatic30.
  38.  
  39.      
  40.       move   "VBScript"              to  "Language" OF scriptControl1  *> default script language
  41.       move   spaces                  to  scriptCode
  42.  
  43.             string
  44.                            ' Dim RespJson                                                       ' vbCRLF *>variables globales
  45.                            ' Dim Estado                                                         ' vbCRLF *>variables globales
  46.                            '   Sub FuncionLeer()                                                ' vbCRLF
  47.                            '        Dim RespEstado , jsonresp                                   ' vbCRLF    
  48.                            '        set WinHttpReq = CreateObject("WinHttp.WinHttpRequest.5.1") ' vbCRLF
  49.                            '        Set fso=CreateObject("Scripting.FileSystemObject")          ' vbCRLF
  50.                            '        Set Fic = fso.OpenTextFile("ejemplojson.txt", 8, True)      ' vbCRLF *>creo el archivo
  51.                            '                                                                    ' vbCRLF
  52.                            '     WinHttpReq.Open "GET", "https://jsonplaceholder.typicode.com/todos", False ' vbCRLF *> url
  53.                            '                                                                    ' vbCRLF                          
  54.                            '     WinHttpReq.Send()                                              ' vbCRLF        
  55.                            '     WinHttpReq.WaitForResponse()                                   ' vbCRLF
  56.                            '     jsonresp = WinHttpReq.ResponseText                             ' vbCRLF
  57. *                          '          msgbox jsonresp                                           ' vbCRLF
  58.                            '         RespEstado =  WinHttpReq.Status                            ' vbCRLF
  59.                            '         Estado   =  RespEstado                                     ' vbCRLF
  60.                            '      RespJson = jsonresp '  vbCRLF
  61.                            '      RespJson = "{""Objeto"":" & RespJson & "}"                    ' vbCRLF *>agrego un objeto a la resp
  62.                            '     fic.Writeline(RespJson)                                        ' vbCRLF *> escribo las respjson en el archivo
  63.                            '     fic.Close()                                                    ' vbCRLF *> cierro el archivo
  64.                            '   End Sub                                                          ' vbCRLF                  
  65.                      delimited by size into scriptCode1
  66.                end-string    
  67.  
  68.  
  69.       INVOKE scriptControl1 "Reset".
  70.      
  71.       invoke scriptControl1 "AddCode" using scriptCode.
  72.  
  73.       invoke scriptControl1 "ExecuteStatement" using "FuncionLeer".
  74.  
  75.       invoke scriptControl1 "Eval" using "Estado" returning Estado.      
  76.  
  77.       move  0 to  "MousePointer" OF pow-self
  78.       move pow-false  to "Visible" OF CmStatic30.
  79.       move Estado to "Text" OF campo-estado.
  80.  
  81.  
  82. *--------------------
  83. * anda perfecto leyendo un archivo con un object = {"objeto":[.......]}
  84.       INVOKE ChilkatJsonObject1 "LoadFile" USING "C:\fsc5\winhttpDemoElsis\ejemplojson.txt" RETURNING ReturnValue
  85. *      display "resultado load:" , ReturnValue
  86.       if ReturnValue not = 1 then
  87.            INVOKE pow-self "DisplayMessage" USING "error"
  88.            exit program
  89.       end-if.
  90.      
  91.       move  "Size" OF ChilkatJsonObject1 to CantidadOBJ.
  92.    
  93. *      display "ChilkatJsonObject1 size Objeto:" , CantidadOBJ.
  94.  
  95.  
  96.       INVOKE ChilkatJsonObject1 "SizeOfArray" USING "Objeto" RETURNING IndiceArray
  97.      
  98. *      display "IndiceArray: " , IndiceArray.
  99.       move IndiceArray      to  "Text" OF campo-registros.
  100.      
  101.      
  102. ***********************************
  103. * busco un registro x
  104. *arranca desde 0 el primer registro      
  105.  
  106.            move 149  to Indice.
  107.            MOVE SPACES TO ObJsolicitar
  108.            STRING "Objeto["    delimited by size
  109.                   Indice       delimited by size
  110.                   "]"          delimited by size
  111.                   "."          delimited by size
  112.                   "userId"     delimited by size              
  113.                   into ObJsolicitar
  114.                  
  115.            END-STRING
  116.            INVOKE ChilkatJsonObject1 "StringOf" USING ObJsolicitar  RETURNING ObjuserId.
  117.            
  118.            MOVE SPACES TO ObJsolicitar                      
  119.            STRING "Objeto["    delimited by size
  120.                   Indice       delimited by size
  121.                   "]"          delimited by size
  122.                   "."          delimited by size
  123.                   "id"         delimited by size              
  124.                   into ObJsolicitar
  125.                  
  126.            END-STRING.
  127.            INVOKE ChilkatJsonObject1 "StringOf" USING ObJsolicitar RETURNING ObjId.
  128.  
  129.            MOVE SPACES TO ObJsolicitar                      
  130.            STRING "Objeto["    delimited by size
  131.                   Indice       delimited by size
  132.                   "]"          delimited by size
  133.                   "."          delimited by size
  134.                   "title"      delimited by size              
  135.                   into ObJsolicitar
  136.                  
  137.            END-STRING
  138.            INVOKE ChilkatJsonObject1 "StringOf" USING ObJsolicitar RETURNING ObjTitle.
  139.  
  140.            MOVE SPACES TO ObJsolicitar                      
  141.            STRING "Objeto["    delimited by size
  142.                   Indice       delimited by size
  143.                   "]"          delimited by size
  144.                   "."          delimited by size
  145.                   "completed"  delimited by size              
  146.                   into ObJsolicitar
  147.                  
  148.            END-STRING.
  149.            INVOKE ChilkatJsonObject1 "StringOf" USING ObJsolicitar RETURNING ObjCompleted.
  150.            
  151.  MUESTRO-REGISTRO-X.
  152.            MOVE ObjuserId    TO  "Text" OF CmText1.
  153.            MOVE ObjId        TO  "Text" OF CmText2.
  154.            MOVE ObjTitle     TO  "Text" OF CmText3.
  155.            MOVE ObjCompleted TO  "Text" OF CmText4.
  156.            
  157.  
  158. *
  159. *
  160.  
  161. *
  162. *
  163. *        
  164.  MUESTRO-TODOS-REGISTROS.
  165.        move ZEROS to Indice.
  166.        PERFORM VARYING Indice FROM Indice BY 1 UNTIL Indice = IndiceArray
  167.            INVOKE CMLISTVIEW1 "Add" USING 1 1 RETURNING WK-IDX          
  168.  
  169.            MOVE SPACES TO ObJsolicitar
  170.            STRING "Objeto["   delimited by size
  171.                   Indice      delimited by size
  172.                   "]"         delimited by size
  173.                   "."         delimited by size
  174.                   "userId"    delimited by size              
  175.                   into ObJsolicitar
  176.                  
  177.            END-STRING
  178.            INVOKE ChilkatJsonObject1 "StringOf" USING ObJsolicitar  RETURNING ObjuserId
  179.  
  180.            MOVE SPACES TO ObJsolicitar                      
  181.            STRING "Objeto["   delimited by size
  182.                   Indice      delimited by size
  183.                   "]"         delimited by size
  184.                   "."         delimited by size
  185.                   "id"        delimited by size              
  186.                   into ObJsolicitar
  187.                  
  188.            END-STRING
  189.            INVOKE ChilkatJsonObject1 "StringOf" USING ObJsolicitar RETURNING ObjId
  190.  
  191.            MOVE SPACES TO ObJsolicitar                      
  192.            STRING "Objeto["   delimited by size
  193.                   Indice      delimited by size
  194.                   "]"         delimited by size
  195.                   "."         delimited by size
  196.                   "title"     delimited by size              
  197.                   into ObJsolicitar
  198.                  
  199.            END-STRING
  200.            INVOKE ChilkatJsonObject1 "StringOf" USING ObJsolicitar RETURNING ObjTitle
  201.  
  202.            MOVE SPACES TO ObJsolicitar                      
  203.            STRING "Objeto["   delimited by size
  204.                   Indice      delimited by size
  205.                   "]"         delimited by size
  206.                   "."         delimited by size
  207.                   "completed" delimited by size              
  208.                   into ObJsolicitar
  209.                  
  210.            END-STRING
  211.            
  212.            INVOKE ChilkatJsonObject1 "StringOf" USING ObJsolicitar RETURNING ObjCompleted
  213.            IF WK-IDX > 0 THEN
  214.             MOVE "ListItems"(WK-IDX) OF CMLISTVIEW1   TO POW-PCMLIST
  215.             MOVE ObjuserId      TO "Text"(1) OF POW-PCMLIST
  216.             MOVE ObjId          TO "Text"(2) OF POW-PCMLIST
  217.             MOVE ObjTitle       TO "Text"(3) OF POW-PCMLIST      
  218.             MOVE ObjCompleted   TO "Text"(4) OF POW-PCMLIST
  219.  
  220.             INVOKE CMLISTVIEW1 "Refresh"
  221.            END-IF
  222.                    
  223.            
  224.        end-perform.
Saludos
fastpho no ha iniciado sesión   Responder Con Cita
Han dicho Gracias: 3
Fito ( 2 de julio de 2021), Joseg ( 7 de junio de 2021), Kuk ( 3 de junio de 2021)
  #12
Antiguo 3 de junio de 2021, 16:08
IDENTIFICATION DIVISION
AHidalgo
 Acabo de llegar...
ENVIRONMENT DIVISION
Avatar de AHidalgo
DATA DIVISION
enero 2021
Buenos Aires
22.09.2021 15:42
PROCEDURE DIVISION
Posts: 13
Enviado: 4
Recibido: 0
Soluiones: 0
Reputación: 0
AHidalgo is an unknown quantity at this point
Predeterminado

@Kuk, Gracias!!, pruebo con eso.
Saludos
Ana
AHidalgo no ha iniciado sesión   Responder Con Cita
  #13
Antiguo 3 de junio de 2021, 22:49
IDENTIFICATION DIVISION
Kuk
 Administrador
ENVIRONMENT DIVISION
Avatar de Kuk
DATA DIVISION
diciembre 2014
Madrid
36 años
23.09.2021 08:44
PROCEDURE DIVISION
Posts: 1.807
Enviado: 583
Recibido: 756
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
1 usuarios han marcado este post como "Solución"

@AHidalgo, échale un vistazo al ejemplo de @fastpho, me parece que es justo lo que necesitas



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
  #14
Antiguo 3 de junio de 2021, 23:29
IDENTIFICATION DIVISION
AHidalgo
 Acabo de llegar...
ENVIRONMENT DIVISION
Avatar de AHidalgo
DATA DIVISION
enero 2021
Buenos Aires
22.09.2021 15:42
PROCEDURE DIVISION
Posts: 13
Enviado: 4
Recibido: 0
Soluiones: 0
Reputación: 0
AHidalgo is an unknown quantity at this point
Predeterminado

@fastpho, Gracias!!!, sigo probando la conexion con la API, el proveedor no brinda soporte, hay que arreglarse como se pueda.
Pruebo con esto que me pasas y sino les vuelvo a preguntar, mil gracias!!

Saludos
Ana
AHidalgo no ha iniciado sesión   Responder Con Cita
  #15
Antiguo 7 de junio de 2021, 10:55
IDENTIFICATION DIVISION
Josber
 Super Moderador
Activista del Foro: Activista del Foro - Razón: Por aportar manuales y enriquecer   Agradecimientos: Por muchos agradecimientos de parte de los Foreros - Razón: Por muchos agradecimientos 
ENVIRONMENT DIVISION
Avatar de Josber
DATA DIVISION
febrero 2015
Alicante
22.09.2021 20:14
PROCEDURE DIVISION
Posts: 595
Enviado: 271
Recibido: 295
Soluiones: 40
Reputación: 30
Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road
Predeterminado

Cita del post de Kuk Ver Mensaje
Amigos, @Josber, @Nitzer, qué opináis?
Hola a todos, antes de nada, perdón por la tardanza pero, tengo las cosas complicadas y no puedo aparecer mucho por aquí, solo lo justo para leer lo nuevo y poco más.

A ver, no he tocado JSON, pero yo creo que tienes razón @Kuk, una vez obtenido, lo difícil es el parseo y, supongo que habrán librerías gratuitas para hacerlo, al igual que las habrán para, por ejemplo, los archivos XML

Un salu2.-
Josber no ha iniciado sesión   Responder Con Cita
  #16
Antiguo 10 de junio de 2021, 16:08
IDENTIFICATION DIVISION
AHidalgo
 Acabo de llegar...
ENVIRONMENT DIVISION
Avatar de AHidalgo
DATA DIVISION
enero 2021
Buenos Aires
22.09.2021 15:42
PROCEDURE DIVISION
Posts: 13
Enviado: 4
Recibido: 0
Soluiones: 0
Reputación: 0
AHidalgo is an unknown quantity at this point
Predeterminado

@Kuk, @fastpho, gracias ambos por su ayuda!, luego de muuuchas pruebas con la API RestFull del proveedor y de mucho dolor de cabeza, por una lado encontré que la API esta muy mal hecha, tiene muchos errores que no se capturan, incluido cuando una consulta no tiene datos
Desde la conexión a la API que ni siquiera funciona con cualquiera de los soft que se prueban normalmente las APIs, solamente con la pagina que ellos proveen para pruebas.
Por todo lo ante dicho, la única forma que encontré que funciona es:
- desde Power Cobol ejecuto un control CmDDE1 con el nombre del archivo BAT.
- previo haber generando el bat con un CURL con todos los parámetros solicitados,
- me devuelve el token en un texto plano, lo leo desde Power Cobol y guardo.
- genero otro bat con el token y la consulta que necesito,
- ejecuto nuevamente el bat con un CmDDE1 y guardo en otro archivo plano la respuesta y el estado de la respuesta por si el token caducó y debo generarlo nuevamente.

En este punto estoy intentando generar una función que me desglose el JSON de la respuesta (parseo) para guardar los datos en formato cobol.

Por casualidad, tienen alguna rutina o función que haga esto?, pregunto para no inventar la rueda.
No puedo usar otros soft que lo hagan porque hasta donde he visto son pagos o versión Trial y no me sirve pues esto lo tengo que instalar luego en mi cliente.

Quedo al pendiente de sus sugerencias!
Saludos
Ana
AHidalgo no ha iniciado sesión   Responder Con Cita
  #17
Antiguo 10 de junio de 2021, 16:28
IDENTIFICATION DIVISION
Kuk
 Administrador
ENVIRONMENT DIVISION
Avatar de Kuk
DATA DIVISION
diciembre 2014
Madrid
36 años
23.09.2021 08:44
PROCEDURE DIVISION
Posts: 1.807
Enviado: 583
Recibido: 756
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

Cita del post de AHidalgo Ver Mensaje
solamente con la pagina que ellos proveen para pruebas
No será problema de que el servidor tiene restricción de interrogación de la API para evitar ataques? Es una medida de seguridad estándar, deshabilitarlo por defecto y dar acceso expresamente a tal o tal IP.

Cita del post de AHidalgo Ver Mensaje
tienen alguna rutina o función que haga esto?
Has visto esto? [Aporte] Código para recibir archivo json y leerlo - COBOL Foro



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
  #18
Antiguo 10 de junio de 2021, 20:00
IDENTIFICATION DIVISION
AHidalgo
 Acabo de llegar...
ENVIRONMENT DIVISION
Avatar de AHidalgo
DATA DIVISION
enero 2021
Buenos Aires
22.09.2021 15:42
PROCEDURE DIVISION
Posts: 13
Enviado: 4
Recibido: 0
Soluiones: 0
Reputación: 0
AHidalgo is an unknown quantity at this point
Predeterminado

@Kuk, no lo había visto, gracias!, estuvo mirando las herramientas de chilkatsoft pero son pagas, ahora me fijo lo que pone @fastpho.

Saludos
Ana
AHidalgo no ha iniciado sesión   Responder Con Cita
  #19
Antiguo 1 de julio de 2021, 23:42
IDENTIFICATION DIVISION
AHidalgo
 Acabo de llegar...
ENVIRONMENT DIVISION
Avatar de AHidalgo
DATA DIVISION
enero 2021
Buenos Aires
22.09.2021 15:42
PROCEDURE DIVISION
Posts: 13
Enviado: 4
Recibido: 0
Soluiones: 0
Reputación: 0
AHidalgo is an unknown quantity at this point
Predeterminado

@Kuk, @fastpho, hola nuevamente, aquí estoy de vuelta (luego de una gripe familiar), he estado probando con el ActiveX de Chilkat viendo el ejemplo pero no logro que me levante ni la cantidad en array.
Adjunto un ejemplo del JSON que tengo que parsear. En la prueba que hice adapté los texto de acuerdo a mi estructura de datos pero no logré que me levante lo que necesito.
Me podrán ayudar?

Saludos
Ana
Archivos Adjuntos
Tipo de Archivo: txt otro.txt (19,2 KB, 1 descargas)
AHidalgo no ha iniciado sesión   Responder Con Cita
  #20
Antiguo 2 de julio de 2021, 18:23
IDENTIFICATION DIVISION
AHidalgo
 Acabo de llegar...
ENVIRONMENT DIVISION
Avatar de AHidalgo
DATA DIVISION
enero 2021
Buenos Aires
22.09.2021 15:42
PROCEDURE DIVISION
Posts: 13
Enviado: 4
Recibido: 0
Soluiones: 0
Reputación: 0
AHidalgo is an unknown quantity at this point
Predeterminado

Estimados, desestimen, ya esta resuelto, a veces un buen sueño soluciona todo.

Saludos
Ana
AHidalgo no ha iniciado sesión   Responder Con Cita
Respuesta

Tags
api , json , parse


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 09:29.
Powered by: vBulletin, Versión 3.8.7
Derechos de Autor ©2000 - 2021, Jelsoft Enterprises Ltd.