Take a look at Armeen's answer. What he says can be achieved in .net (a com visible object)...

Based on your conversation with Mike take a look at the following examples. They are both based on the information you provided. It's not the best solution but it can give you an idea of how to. Of course json can have more that one "rows" of data, and also nested information not to mention that you can even have arrays. So depending on how simplistic is your case it may be easy or complicated.

// 1st Example

string ls_15_rec, ls_transtype, ls_vin, ls_veh_make

ls_transtype = "My Transaction"
ls_vin = "My Vin"
ls_veh_make = "My value"

ls_15_rec = "{~n~"TransactionId~":~"" + ls_transtype + "~",~n~"Vin~":~"" + ls_vin + "~",~n~"Make~":~"" + ls_veh_make + "~"~n}"

messagebox("", ls_15_rec)

// 2nd Example

string ls_array1[], ls_array2[], ls_json = "", ls_open_char = "", ls_close_char = ""
char lc_type[] // C -> string, N -> number
long ll_i

ls_array1[upperbound(ls_array1) + 1] = "OriginJurisdiction"
ls_array2[upperbound(ls_array1)] = "YT"
lc_type[upperbound(ls_array1)] = "C"
ls_array1[upperbound(ls_array1) + 1] = "ControlNumber"
ls_array2[upperbound(ls_array1)] = "000202009"
lc_type[upperbound(ls_array1)] = "C"
ls_array1[upperbound(ls_array1) + 1] = "VersionNo"
ls_array2[upperbound(ls_array1)] = "000"
lc_type[upperbound(ls_array1)] = "C"
ls_array1[upperbound(ls_array1) + 1] = "SentCount"
ls_array2[upperbound(ls_array1)] = string(28339)
lc_type[upperbound(ls_array1)] = "N"
ls_array1[upperbound(ls_array1) + 1] = "FileTime"
ls_array2[upperbound(ls_array1)] = "2020-09-04T00:05:39"
lc_type[upperbound(ls_array1)] = "C"

for ll_i = 1 to upperbound(ls_array1)
	if lc_type[ll_i] = 'N' then
		ls_open_char = ""
		ls_close_char = ""
	else
		ls_open_char = "~""
		ls_close_char = "~""
	end if
	if ll_i < upperbound(ls_array1) then
		ls_close_char = ls_close_char + ",~n"
	else
		ls_close_char = ls_close_char + "~n"
	end if
	ls_json = ls_json + "~"" + ls_array1[ll_i] + "~":~"" + ls_open_char + ls_array2[ll_i] + ls_close_char
next

ls_json = "{~n" + ls_json + "~}"

messagebox("", ls_json)

Andreas.

You could create a COM wrapper for one of the popular JSON libraries so that you can utilize the third-party library in PB.  I believe some other people successfully integrated this library in PB 12.x: https://www.newtonsoft.com/json

code it all manually.  12.x and below are well over 10 years old and SAP did very little (nothing) in terms of new features.  

If you want the new features such as json, you need to upgrade.