[Progress Communities] [Progress OpenEdge ABL] Forum Post: RE: WRITE-JSON from DataSet, without JsonArray

[Torben]

Manipulate resulting JsonObject. // lh_DataSet:WRITE-JSON ("FILE", "C:\temp\jsonOutput.txt", TRUE, "UTF-8", FALSE, TRUE). lh_DataSet:NAME = "x". lobj_JsonObject = NEW JsonObject(). lobj_JsonObject:Read(lh_DataSet). lobj_JsonObject = lobj_JsonObject:GetJsonObject("x"). lobj_JsonObject:Set("data", lobj_JsonObject:GetJsonArray("data"):GetJsonObject(1)). lobj_JsonObject:GetJsonObject("data"):Set("attributes", lobj_JsonObject:GetJsonObject("data"):GetJsonArray("attributes"):GetJsonObject(1)). lobj_JsonObject:WriteFile("C:\temp\jsonOutput.txt").

Continue reading...