[progress Communities] [progress Openedge Abl] Forum Post: Re: Iterate The Fields In A...

  • Thread starter Thread starter Ken Ward
  • Start date Start date
Status
Not open for further replies.
K

Ken Ward

Guest
I rewrote it a little, but it works Thanks! DEF VAR cnames AS CHAR EXTENT NO-UNDO. DEF VAR cMsgs AS CHAR EXTENT NO-UNDO. jErrors = jsonObj:GetJsonObject("errors"). cnames = jErrors:GetNames(). EXTENT(cMsgs) = EXTENT(cnames). DEF VAR i AS INTEGER NO-UNDO. DO i = 1 TO EXTENT(cNames): cMsgs = jErrors:GetJsonArray(cnames):GetCharacter(1). END.

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