Exemplo Cursor PL/SQL

set serveroutput on
declare
--passo 1: declarar as variáveis
v_employee_id employees.employee_id%type;
v_first_name employees.first_name%type;
v_hire_date employees.hire_date%type;
v_salary employees.salary%type;
-- passo 2: declarar o cursor
CURSOR v_employees_cursor is
  select employee_id,first_name,hire_date,salary
  from employees
  order by employee_id;
 begin
 -- passo 3: abrir o cursor
 open v_employees_cursor;
 loop
 -- passo 4: buscar as linhas do cursor
 FETCH v_employees_cursor
 into v_employee_id,v_first_name,v_hire_date,v_salary;
 --sai do loop quando não existe mais linhas, conforme indicado
 --pela variavel booleana v_employees_cursor%notfound
 exit when v_employees_cursor%NOTFOUND;
 -- usa DBMS_OUTPUT.PUT_LINE () para exibir as variaveis
 DBMS_OUTPUT.put_line(
 'v_employee_id = '||v_employee_id||',v_first_name = '||v_first_name||',v_hire_date = '||v_hire_date||',v_salary = '||v_salary);
 end loop;
 --passo 5: fechar o cursor
 close v_employees_cursor;
 end;