JSON Array to CSV / XML help needed about pbjson HOT 2 CLOSED

int li_start, li_end, li_col_start, li_col_count
String ls_error, ls_response, ls_value, ls_attributes[], ls_key, ls_row
any la_data, la_contents[]
json ln_json, ln_item

ln_json = create json
ls_response = '{"contents": [{"id" : "1", "name" : "one"},{ "id" : "2", "name" : "Two"}]}'
ls_error = ln_json.parse(ls_response)

if ls_error = "" then
	ln_json.retrieve("contents", ref la_data)
	la_contents[] = la_data
	li_end = upperbound( la_contents[] )
	//MessageBox("Info", "Name : " + string(ln_item.getattribute("name")))
	For li_start = 1 TO li_end
		ln_item = la_contents[li_start]
		ln_item.getattributes(ls_attributes)
		li_col_count = upperbound( ls_attributes )
		ls_row = ''
		For li_col_start = 1 TO li_col_count
			ls_key = ls_attributes[li_col_start]
			ls_value = String(ln_item.getattribute(ls_attributes[li_col_start] ))
			//MessageBox("Info", ls_key + " : " + ls_value)
			ls_row = ls_row + ls_value
			IF li_col_start < li_col_count THEN ls_row = ls_row + ','
		NEXT
		//Messagebox("row", ls_row)
		write_log("d:\tss\output\report.csv", ls_row)
	next
end if

destroy ln_json