Cursor Par - Impar

set serveroutput on
declare
  cursor ParImpar is select employees.employee_id,employees.tipoid from employees;
  vid employees.employee_id%type;
  vtipo employees.tipoid%type;
begin
  open ParImpar;
    loop
      fetch ParImpar into vid,vtipo;
      exit when ParImpar%NOTFOUND;      
      if mod(vid,2) = 0 then
        dbms_output.put_line('Id: '||vid||' Par');
        update employees SET tipoid = 'Par' where employee_id=vid;
      else
        dbms_output.put_line('Id: '||vid||' Impar');
        update employees SET tipoid = 'Impar' where employee_id=vid;
      end if;
    end loop;
  close ParImpar;
end;