M
Matt Baker
Guest
You will need to handle serialization of each entry in your temp-table array manually. USING Progress.Json.ObjectModel.JsonObject FROM PROPATH. USING Progress.Json.ObjectModel.JsonArray FROM PROPATH. define temp-table test field afield as character field bfield as character. create test. test.afield = "a". test.bfield = "b". create test . test.afield ="c". test.bfield = "d". define variable tjson as JsonArray no-undo. tjson = new JsonArray(). temp-table test
EFAULT-BUFFER-HANDLE:write-json("JsonArray", tjson). define stream jsonout. output stream jsonout to value("c:\temp\test.json"). define variable i as integer no-undo. define variable trow as JsonObject no-undo. do i = 1 to tjson:Length: trow = tjson:GetJsonObject(i). trow:WriteStream(stream jsonout:handle:name). put stream jsonout skip. end. output stream jsonout close.
Continue reading...
EFAULT-BUFFER-HANDLE:write-json("JsonArray", tjson). define stream jsonout. output stream jsonout to value("c:\temp\test.json"). define variable i as integer no-undo. define variable trow as JsonObject no-undo. do i = 1 to tjson:Length: trow = tjson:GetJsonObject(i). trow:WriteStream(stream jsonout:handle:name). put stream jsonout skip. end. output stream jsonout close.Continue reading...