CREATE OR REPLACE 
PROCEDURE PRINTROW AS


--宣告行變數及遊標
myrow EMP%rowtype;
cursor mycur is select * from EMP;

BEGIN
  --開啟遊標
  OPEN mycur;  


  --迴圈進行操作
  LOOP  


    FETCH mycur INTO myrow;  


    EXIT WHEN mycur%NOTFOUND;  


    DBMS_OUTPUT.PUT_LINE('部門號是：'||myrow.empno||'      部門名稱：'||myrow.ename);  


    --INSERT INTO EMP (...) VALUES (....);  
    --COMMIT;  


  END LOOP;  
  
  --關閉遊標
  close mycur ;




END PRINTROW;