set serveroutput on
set verify off
declare
cursor emp17_cursor is
select *
from emp17;
emp17_record emp17_cursor%rowtype;
v_domain varchar2(10);
begin
open emp17_cursor;
loop
fetch emp17_cursor into emp17_record;
exit when emp17_cursor%notfound;
if substr(emp17_record.email,instr(emp17_record.email,'@')+1,5) = 'gmail' then
v_domain := 'gmail';
else
v_domain := 'naver';
end if;
update emp17
set domain = v_domain
where empno = emp17_record.empno;
end loop;
close emp17_cursor;
end;
/