plsql

declare
cursor cur is
(select contractid from contract where rownum=1);
r_serviceid contract.contractid%type;

begin
open cur;
loop 
fetch cur into r_serviceid;
end loop;
close cur;
end;