[AHidalgo]

@fastpho, Hola, buenas tardes!, me podrás ayudar haciendo una prueba para ver si tenes el mismo error? (así descarto error humano). De los 4 campos que quiero recuperar solo me trae 2.

 ENVIRONMENT     DIVISION.
 DATA            DIVISION.
 WORKING-STORAGE SECTION.
 01 FILA                      PIC 9(8).
 01 WFEC-AMD         PIC X(10).
 01 TIMPTOT             PIC X(9).
 01 WS.
   02 WS-NRO             PIC X(7).
   02 WS-NRO-ORD    REDEFINES WS-NRO PIC 9(7).
   02 WS-ID                  PIC X(3).
   02 WS-IDMPAGO    REDEFINES WS-ID  PIC 9(3).
 01 WGET-VTA-FEC    PIC X(20) IS GLOBAL VALUE "C:\APi\APIRFech1.TXT".
 PROCEDURE       DIVISION.
 INICIO.
     INVOKE ChilkatJsonObject1 "LoadFile" USING WGET-VTA-FEC RETURNING ReturnValue. 
     IF ReturnValue NOT = 1 THEN
        INVOKE pow-self "DisplayMessage" USING "error"
        EXIT PROGRAM
     END-IF.
*
     INVOKE ChilkatJsonObject1 "SizeOfArray" USING "Objeto" RETURNING IndiceArray.
     MOVE ZEROS TO FILA FI-LA.
     PERFORM VARYING FILA FROM FILA BY 1 UNTIL FILA = IndiceArray OR FILA > 10
*
           MOVE SPACES TO ObJsolicitar
           STRING "Objeto["     delimited by size
                  FILA          delimited by size
                  "]"           delimited by size
                  "."           delimited by size
                  "concretado"  delimited by size
                  into ObJsolicitar
           END-STRING 
           INVOKE ChilkatJsonObject1 "StringOf" USING ObJsolicitar RETURNING WFEC-AMD
*
           MOVE SPACES TO ObJsolicitar
           STRING "Objeto["     delimited by size
                  FILA          delimited by size
                  "]"           delimited by size
                  "."           delimited by size
                  "idModoDePago" delimited by size
                  into ObJsolicitar
           END-STRING 
           INVOKE ChilkatJsonObject1 "StringOf" USING ObJsolicitar RETURNING WS-ID
*
           INITIALIZE TIMPTOT WS-NRO WS-ID WFEC-AMD
           MOVE SPACES TO ObJsolicitar
           STRING "Objeto["     delimited by size
                  FILA          delimited by size
                  "]"           delimited by size
                  "."           delimited by size
                  "idVenta"     delimited by size
                  into ObJsolicitar
           END-STRING 
           INVOKE ChilkatJsonObject1 "StringOf" USING ObJsolicitar  RETURNING WS-NRO
 
           MOVE SPACES TO ObJsolicitar
           STRING "Objeto["     delimited by size
                  FILA          delimited by size
                  "]"           delimited by size
                  "."           delimited by size
                  "total"       delimited by size
                  into ObJsolicitar
           END-STRING 
           INVOKE ChilkatJsonObject1 "StringOf" USING ObJsolicitar RETURNING TIMPTOT
*
           DISPLAY WFEC-AMD " , " WS-ID " , " TIMPTOT " , " WS-NRO " , fila " fila 
     END-PERFORM.
     EXIT PROGRAM.

Si podes probar te lo voy a agradecer.
Cualquier ayuda es bienvenida!!
Saludos
Ana