-- 查找员工号，姓名，职位
declare
  -- 定义游标
  cursor mycur is select empno,ename,job from emp;
  v_empno emp.empno%type;
  v_ename emp.ename%type;
  v_job emp.job%type;
begin
  -- 打开游标
  open mycur;
  -- 提取数据
  loop
       fetch mycur into v_empno,v_ename,v_job;
       dbms_output.put_line('员工编号：'||v_empno||'员工名称：'||v_ename||'员工职位：'||v_job);
       -- 什么时候能够退出循环
       -- exit when mycur%notfound; 
       -- exit when not mycur%found;
       exit when mycur%rowcount=5;
  end loop;
  -- 关闭游标
  close mycur;
  exception 
    when others then
      dbms_output.put_line('出错'||sqlerrm);
end;

-- 使用循环游标
declare
  -- 定义游标
  cursor mycur is select empno,ename,job from emp;
begin
  for record in mycur loop
    dbms_output.put_line('员工编号：'||record.empno||'员工名称：'||record.ename||'员工职位：'||record.job);
  end loop;
  exception 
    when others then
      dbms_output.put_line('出错'||sqlerrm);
end;

-- for后面直接接select语句
begin
  for record in (select empno,ename,job from emp) loop
    dbms_output.put_line('员工编号：'||record.empno||'员工名称：'||record.ename||'员工职位：'||record.job);
  end loop;
  exception 
    when others then
      dbms_output.put_line('出错'||sqlerrm);
end;