Json & Powercobol

[Joseg]

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 (https://stedolan.github.io/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

[fastpho]

@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

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