[Progress Communities] [Progress OpenEdge ABL] Forum Post: RE: Initial value for a longchar to contain a json

[Stefan Drissen]

Sharing from ABL Dojo seems to now just save the code, so here you go: DEFINE TEMP-TABLE ttEncoder FIELD valor AS INTEGER FIELD coded AS CHAR. DEFINE VARIABLE lcTable AS LONGCHAR NO-UNDO INITIAL ' ~{"ttEncoder":[ ~{"valor":1 ,"coded":"um"}, ~{"valor":2 ,"coded":"xy"}, ~{"valor":3 ,"coded":"st"}, ~{"valor":4 ,"coded":"et"}, ~{"valor":5 ,"coded":"eg"}, ~{"valor":6 ,"coded":"ue"}, ~{"valor":7 ,"coded":"fy"}, ~{"valor":102 ,"coded":"hy"}, ~{"valor":103 ,"coded":"fz"} ] }'. TEMP-TABLE ttEncoder:READ-JSON("LONGCHAR", lcTable). FOR EACH ttEncoder: DISPLAY ttEncoder. END.

Continue reading...