IMPORT util

MAIN
  DEFINE s STRING,
  xrep RECORD
   codigo,estado,mensajes,encf,secuenciaUtilizada STRING
  END RECORD

  LET s = '{"codigo":1,"estado":"Aceptado","mensajes":null,"encf":"E320000000103","secuenciaUtilizada":true}'
  CALL util.JSON.parse(s,xrep)

DISPLAY xrep.*  
END MAIN