Dim stringJSON As String = "{""value1"":1234567890,""value2"":12345678901}"
Dim jsonparserJSONParser As JSONParser
jsonparserJSONParser.Initialize (stringJSON)
Dim mapJSON As Map
Dim objectInstance As Object
mapJSON = jsonparserJSONParser.NextObject
objectInstance = mapJSON.Get ("value1")
If (objectInstance Is Int) Then Log ("value1 Is Int")
If (objectInstance Is Long) Then Log ("value1 Is Long")
objectInstance = mapJSON.Get ("value2")
If (objectInstance Is Int) Then Log ("value2 Is Int")
If (objectInstance Is Long) Then Log ("value2 Is Long")