name

a name part of a new name:value pair

value

a value part of a new name:value pair

example code #1

(with a simple string value)

MAIN

  DEFINE json_obj util.JSONObject

    LET json_obj = util.JSONObject.create()

    CALL json_obj.put("simple_string", "Test string")

    DISPLAY json_obj.toString()  

  CALL fgl_getkey()

END MAIN

obtained results #1

example code #2

(with a simple numeric value)

MAIN

  DEFINE json_obj util.JSONObject

    LET json_obj = util.JSONObject.create()

    CALL json_obj.put("simple_numeric", 12345)

    DISPLAY json_obj.toString()  

  CALL fgl_getkey()

END MAIN

obtained results #2

example code #3

(with a JSON object)

MAIN

    DEFINE json_obj util.JSONObject

    DEFINE cust_rec RECORD

               cust_id INTEGER,

               cust_name STRING

           END RECORD

    LET json_obj = util.JSONObject.create()

    LET cust_rec.cust_id = 15

    LET cust_rec.cust_name = "Barton, Timothy"

    CALL json_obj.put("record", cust_rec)

    DISPLAY json_obj.toString()  

    CALL fgl_getkey()

END MAIN

obtained results #3

example code #4

(with a JSONArray)

MAIN

    DEFINE json_obj util.JSONObject

    DEFINE cust_arr DYNAMIC ARRAY OF INTEGER

    LET json_obj = util.JSONObject.create()

    LET cust_arr[1] = 1

    LET cust_arr[2] = 12

    LET cust_arr[3] = 123

    CALL json_obj.put("array", cust_arr)

    DISPLAY json_obj.toString()  

    CALL fgl_getkey()

END MAIN

obtained results #4