Cursor Par - Impar 2

set serveroutput on
declare
  cursor LuisUno is select employee_id,first_name,last_name,email from employees;
  vid employees.employee_id%TYPE;
  vnombre employees.first_name%TYPE;
  vapellido employees.last_name%TYPE;
  vemail employees.email%TYPE;
  vtipo varchar2(5);
begin
  open LuisUno;
    loop
      fetch LuisUno into vid,vnombre,vapellido,vemail;
      exit when LuisUno%NOTFOUND;
        if mod(vid,2)=0 then
          vtipo := 'Par';
        else
          vtipo := 'Impar';
        end if;
        update employees set tipoid = vtipo where employee_id = vid;
        --dbms_output.put_line('Id: '||vid||' | Nombre: '||vnombre||' |Apellido: '||vapellido||' |Email: '||vemail);
    end loop;
  close LuisUno;
  exception
    when others then
     dbms_output.put_line('Error: '||SQLERRM);
end;