declare login cursor for
select distinct s_emplid,s_password
from employee;

open login;
string ls_emplid ,sle_emplid ,sle_password
long ll_total ,ll_i

do while (sqlca.sqlcode=0)

fetch login
into:ls_emplid,
:ls_password ;
... ...