Load a JSON string into a data structure.
Also, create a new data structure and serialize it into JSON.

Use objects and arrays (as appropriate for your language)
and make sure your JSON is valid (https://jsonformatter.org).

/* using a longchar to read and write to, can also be file, memptr, stream */
DEFINE VARIABLE lcjson AS LONGCHAR NO-UNDO.
 
/* temp-table defines object, can also be dataset */
DEFINE TEMP-TABLE example
   FIELD blue  AS INTEGER EXTENT 2
   FIELD ocean AS CHARACTER
   .
CREATE example. 
ASSIGN 
   example.blue [1]  =  1
   example.blue [2]  =  2
   example.ocean     =  "water"
   .
/* write-json to put result in lcjson, true indicates formatted */
TEMP-TABLE example:DEFAULT-BUFFER-HANDLE:WRITE-JSON( "LONGCHAR", lcjson, TRUE ).
 
/* display result */
MESSAGE
   STRING( lcjson )
VIEW-AS ALERT-BOX.
 
/* empty results */
EMPTY TEMP-TABLE example.
 
/* read-json to get result from lcjson */
TEMP-TABLE example:DEFAULT-BUFFER-HANDLE:READ-JSON( "LONGCHAR", lcjson ).
 
FIND example.
/* display results */
MESSAGE
   example.blue [1] example.blue [2] SKIP
   example.ocean
VIEW-AS ALERT-BOX.