Urgente Tratar retorno Json

Se a posição da chave não mudar, então usa esse código:

Código:

DEF VAR StringJSON AS CHAR FORMAT "x(300)".
DEF VAR AccessToken AS CHAR.
DEF VAR ValorAccessToken AS CHAR.

UPDATE StringJSON WITH 1 COL FONT 3 SCROLLABLE. /* Ao rodar o programa você coloca sua string dentro dessa variável para simular */

StringJSON = REPLACE(StringJSON,"""","").

AccessToken = ENTRY(3,StringJSON,",").
ValorAccessToken = ENTRY(2,AccessToken,":").

MESSAGE ValorAccessToken
    VIEW-AS ALERT-BOX INFO BUTTONS OK.

Se a posição da chave muda, usa esse outro código:

Código:

DEF VAR StringJSON AS CHAR FORMAT "x(300)".
DEF VAR AccessToken AS CHAR.
DEF VAR ValorAccessToken AS CHAR.
DEF VAR Valores AS CHAR EXTENT.
DEF VAR xi AS INTEGER.

UPDATE StringJSON WITH 1 COL FONT 3 SCROLLABLE. /* Ao rodar o programa você coloca sua string dentro dessa variável para simular */
DISP "".

StringJSON = REPLACE(StringJSON,"""","").
StringJSON = REPLACE(StringJSON,CHR(123),"").
StringJSON = REPLACE(StringJSON,CHR(125),"").

RUN Split(INPUT StringJSON,
          INPUT ",",
          OUTPUT Valores).

DO xi = 1 TO EXTENT(Valores).
   IF ENTRY(1,Valores[xi],":") = "access_token" THEN DO:
      MESSAGE ENTRY(1,Valores[xi],":") SKIP
              ENTRY(2,Valores[xi],":")
              VIEW-AS ALERT-BOX INFO BUTTONS OK.
      LEAVE.
   END.
END.


/* ##### SPLIT DE STRINGS #################################################################################### */
PROCEDURE Split.
  DEF INPUT PARAMETER vTextoEntrada AS CHAR.
  DEF INPUT PARAMETER vSeparador AS CHAR.
  DEF OUTPUT PARAMETER vValores AS CHAR EXTENT.
  DEF VAR idx AS INTEGER.
  DEF VAR PosAtual AS INTEGER.
  DEF VAR ValInicial AS INTEGER.
  DEF VAR QtdeCar AS INTEGER.

  PosAtual = 1.
  DO WHILE TRUE.
     PosAtual = INDEX(vTextoEntrada,vSeparador,PosAtual).
     IF PosAtual = 0 THEN LEAVE.
     idx = idx + 1.
     PosAtual = PosAtual + 1.
  END.

  EXTENT(vValores) = idx + 1.

  PosAtual = 1.
  DO idx = 1 TO EXTENT(vValores).
     IF LENGTH(vSeparador) > 1 THEN ValInicial = (IF PosAtual > 1 THEN PosAtual + (LENGTH(vSeparador) - 1) ELSE PosAtual).
     ELSE ValInicial = PosAtual.
     QtdeCar = INDEX(vTextoEntrada,vSeparador,PosAtual) - ValInicial.
     QtdeCar = (IF QtdeCar < 0 THEN -1 ELSE QtdeCar).
     ASSIGN vValores[idx] = SUBSTRING(vTextoEntrada,ValInicial,QtdeCar).
     PosAtual = INDEX(vTextoEntrada,vSeparador,PosAtual).
     PosAtual = PosAtual + 1.
  END.
END PROCEDURE.
/* ########################################################################################################################## */

Quando eu disse "se a chave não mudar", me referi a mudar de posição na string, rsrsrs