count=0
declare user cursor for select username from sysuser;
open user;
string name
ddlb_1.reset()
fetch user into :name;
do while sqlca.sqlcode=0
ddlb_1.additem(name)
fetch user into :name;
loop
close user;
declare user cursor for select username from sysuser;
open user;
string name
ddlb_1.reset()
fetch user into :name;
do while sqlca.sqlcode=0
ddlb_1.additem(name)
fetch user into :name;
loop
close user;