Dim list1 As List
list1.Initialize
Dim KalaMap As Map
KalaMap.Initialize
KalaMap.Put("stuffid","2720000000234")
KalaMap.Put("name","pname1")
KalaMap.Put("mu",164)
KalaMap.Put("tedad",1)
KalaMap.Put("Fee",10000)
KalaMap.Put("Prdis",10000)
KalaMap.Put("Dis",0)
KalaMap.Put("Adis",10000)
KalaMap.Put("Vra",0)
KalaMap.Put("Vam",0)
KalaMap.Put("Tsstam",10000)
KalaMap.Put("Odam",0)
KalaMap.Put("Olam",0)
list1.Add(KalaMap)
Dim KalaMap As Map
KalaMap.Initialize
KalaMap.Put("stuffid","2720000000234")
KalaMap.Put("name","pname2")
KalaMap.Put("mu",164)
KalaMap.Put("tedad",1)
KalaMap.Put("Fee",10000)
KalaMap.Put("Prdis",10000)
KalaMap.Put("Dis",0)
KalaMap.Put("Adis",10000)
KalaMap.Put("Vra",0)
KalaMap.Put("Vam",0)
KalaMap.Put("Tsstam",10000)
KalaMap.Put("Odam",0)
KalaMap.Put("Olam",0)
list1.Add(KalaMap)
//send to java