--顯式遊標案例
declare
 cursor emp_cursor(department in number default 20)
 is select empno,ename,job,sal from emp where deptno=department;
 type employee is record(
 id emp.empno%type,
 name emp.ename%type,
 job emp.job%type,
 sal emp.sal%type
 );
 emp_row employee;
 begin
   open emp_cursor(30);
     loop
     fetch emp_cursor into emp_row;
     exit when emp_cursor%notfound;
     dbms_output.put('員工編號 '||emp_row.id);
     dbms_output.put(' 姓名 '||emp_row.name);
     dbms_output.put(' 職位 '||emp_row.job);
     dbms_output.put_line(' 薪水 '||emp_row.sal);
   end loop;
    dbms_output.put_line('。。。。');
   close emp_cursor;
 end;
 
 --顯示遊標案例<span style="color:#FF0000;">寫法二</span>，效果同上
declare
 cursor emp_cursor(department in number default 20)
 is select empno,ename,job,sal from emp where deptno=department;
 type employee is record(
 id emp.empno%type,
 name emp.ename%type,
 job emp.job%type,
 sal emp.sal%type
 );
 emp_row employee;
 begin
   open emp_cursor(30);
     
     fetch emp_cursor into emp_row;      --fetch1
     while emp_cursor%found loop
     dbms_output.put('員工編號 '||emp_row.id);
     dbms_output.put(' 姓名 '||emp_row.name);
     dbms_output.put(' 職位 '||emp_row.job);
     dbms_output.put_line(' 薪水 '||emp_row.sal);
     --從遊標中提取下一行資料
     fetch emp_cursor into emp_row;       --fetch2
   end loop;
   close emp_cursor;
 end;
 

while emp_cursor%found loop

遊標for迴圈（在使用遊標for迴圈時，一定不要使用open語句，fetch語句和close語句，否則將產生錯誤）

--遊標for迴圈
 declare 
  cursor emp_cursor is select * from emp where deptno=10;
  row emp_cursor%rowtype;
 begin
  for row in emp_cursor loop
   dbms_output.put(row.empno|| ' ');
   dbms_output.put(row.ename|| ' ');
   dbms_output.put(row.job|| ' ');
   dbms_output.put_line(row.sal);
  end loop;
 end;