string stockname,Sqlint ithis.reset( )SQL = "Select p_partno from p_partno where  p_bs = '1' group by p_partno order by p_partno "declare my1 dynamic cursor for sqlsa;prepare sqlsa from :Sql;open my1;fetch my1 into:stockname;do while sqlca.sqlcode = 0	stockname = trim(stockname)	additem( stockname ) 	fetch my1 into:stockname;loopclose my1;additem( "" )