[Progress Communities] [Progress OpenEdge ABL] Forum Post: RE: Create JSON

  • Thread starter Thread starter Simon L. Prinsloo
  • Start date Start date
Status
Not open for further replies.
S

Simon L. Prinsloo

Guest
DEF VAR oJson AS JsonObject NO-UNDO. DEF VAR oData AS JsonArray NO-UNDO. oJson = NEW JsonObject(). oData = NEW JsonArray(). TEMP-TABLE ttData:WRITE-JSON("JsonArray",oData). oJson:Add("exito", TRUE). oJson:Add("message", ""). oJson:Add("data", oData). oJson:WriteFile("file.json").

Continue reading...
 
Status
Not open for further replies.
Back
Top