Cobol Foro - [Compilador] Json & Powercobol

Cobol Foro (https://www.cobolforo.es/index.php)

- PowerCOBOL (ActiveX, v4 - v11) (https://www.cobolforo.es/forumdisplay.php?f=9)

- - [Compilador] Json & Powercobol (https://www.cobolforo.es/showthread.php?t=1298)

Json & Powercobol

Olá,

Alguém conseguio implementar uma boa solução em Powercobol?
Em Windev não tenho problemas, mas neste caso preferia tudo no ambiente Cobol.
Este utilitário ajuda muito (jq), mas não é pratico para capturar o resultado ou então não estou a usar a melhor forma (output para um ficheiro de texto).

Gracias
Jose

@Joseg, Una opcion puede ser por el control scriptControl , otra puede ser con el control JsonObject de Chilkat es free , implementando todo desde powercobol .
Ejemplo JsonObject

Código COBOL:

      INVOKE ChilkatJsonObject1 "LoadFile" USING "C:\archivojson.txt" RETURNING ReturnValue 
      display "resultado load:" , ReturnValue
      if ReturnValue not = 1 then
           INVOKE pow-self "DisplayMessage" USING "error"
           exit program
      end-if. 
     
      move  "Size" OF ChilkatJsonObject1 to CantidadOBJ.
     
      display "ChilkatJsonObject1 size:" , CantidadOBJ.
 
 
      INVOKE ChilkatJsonObject1 "SizeOfArray" USING "usuarios" RETURNING IndiceArray
      
      display "IndiceArray: " , IndiceArray.

Saludos