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

[Stefan Drissen]

With regards to creating a 'proper' json object, see ABL Dojo - note that your example json is invalid in a few ways USING Progress.Json.ObjectModel.JsonObject. USING Progress.Json.ObjectModel.JsonArray. def var ojson as JsonObject. def var odata as JsonObject. def var ocusts as JsonArray. def var ocust as JsonObject. def var oprods as JsonArray. def var oprod as JsonObject. def var oservs as JsonArray. def var oserv as JsonObject. ojson = new JsonObject(). odata = new JsonObject(). ocusts = new JsonArray(). ocust = new JsonObject(). ocust:add( "id_accounting", 1 ). ocust:add( "id_totalgest", 2 ). ocust:add( "error", false ). ocust:add( "message", "" ). ocusts:add( ocust ). ocust = new JsonObject(). ocust:add( "id_accounting", 3 ). ocust:add( "id_totalgest", 4 ). ocust:add( "error", true ). ocust:add( "message", "Some reason ..." ). ocusts:add( ocust ). odata:add( "customers", ocusts ). oprods = new JsonArray(). oprod = new JsonObject(). oprod:add( "id_accounting", 5 ). oprod:add( "id_totalgest", 6 ). oprod:add( "error", false ). oprod:add( "message", "" ). oprods:add( oprod ). odata:add( "products", oprods ). oservs = new JsonArray(). oserv = new JsonObject(). oserv:add( "id_accounting", 7 ). oserv:add( "id_totalgest", 0 ). oserv:add( "error", true ). oserv:add( "message", "Some reason ..." ). odata:add( "services", oserv ). ojson:add( "data", odata ). def var lcc as longchar no-undo. ojson:writeFile( "data.json", true ). copy-lob from file "data.json" to lcc. message string( lcc ) view-as alert-box.

Continue reading...