declare login cursor for select distinct s_emplid,s_passwordfrom employee;
open login;string ls_emplid ,sle_emplid ,sle_passwordlong ll_total ,ll_ido while (sqlca.sqlcode=0) fetch logininto:ls_emplid, :ls_password ; ... ...