Hola
@Fito te paso un ejemplo como recorrer los miembros inmediatos de un objeto JSON.
Con el metodo
, obtenemos el nombre del miembro N
Con el metodo
, devuelve el valor de cadena del miembro N
Código COBOL:
WORKING-STORAGE SECTION.
01 ReturnValue PIC s9(9) comp-5.
01 I PIC 99.
01 lSIZE pic s9(9) comp-5.
01 txtNAME PIC X(50).
01 txtValue PIC X(1024).
PROCEDURE DIVISION.
INVOKE ChilkatJsonObject2 "LoadFile" USING "JSON.txt" RETURNING ReturnValue.
display "ReturnValue : " , ReturnValue.
MOVE "Size" OF ChilkatJsonObject2 TO lSIZE.
display "lSIZE : " , lSIZE.
MOVE 0 TO I.
PERFORM VARYING I FROM 0 BY 1 UNTIL I = lSIZE
DISPLAY "I: " , I
INVOKE ChilkatJsonObject2 "NameAt" USING I RETURNING txtNAME
DISPLAY "NAME : " , txtNAME
INVOKE ChilkatJsonObject2 "StringAt" USING I RETURNING txtValue
DISPLAY "VALUE : " , txtvalue
END-PERFORM.
Espero te sirva
Saludos ...