@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