%JSON_ArrayAppendValue(
   INT in handle
   UNIVAL in value
 )

 INT _arr
 _arr := %JSON_CreateArray()

 %JSON_ArrayAppendValue(_arr, "IPESOFT")
 %JSON_ArrayAppendValue(_arr, 365)
 %JSON_ArrayAppendValue(_arr, 1.234)
 %JSON_ArrayAppendValue(_arr, @TRUE)
 %JSON_ArrayAppendValue(_arr, U.uservariable)

 %JSON_DeleteArrayFreeArrayHandle(_arr)