PLSQL带参数的CURSOR

开始

SET SERVEROUTPUT ON;

DECLARE
  v_empno emp.empno%TYPE;
  v_ename emp.ename%TYPE;
  
  CURSOR emp_cursor
  (p_deptno NUMBER,p_job VARCHAR2) IS
  SELECT empno,ename FROM emp WHERE deptno=p_deptno AND JOB=p_job;
  
  emp_record emp_cursor%ROWTYPE;
  
BEGIN

LOOP

  IF NOT emp_cursor%ISOPEN  THEN
     OPEN emp_cursor(30,'SALESMAN');
  END IF; 
  
  FETCH emp_cursor INTO  emp_record; 
  EXIT WHEN emp_cursor%NOTFOUND;
  
  dbms_output.put_line
     ('rowcount is:'|| emp_cursor%ROWCOUNT || '-- empno is:' || emp_record.empno 
        || '-- emp name is:' || emp_record.ename);

END LOOP;

IF emp_cursor%ISOPEN  THEN
     dbms_output.put_line('Now to close cursor!');
     CLOSE emp_cursor;
END IF; 
  
dbms_output.put_line('-------------------------------');

LOOP

  IF NOT emp_cursor%ISOPEN  THEN
     OPEN emp_cursor(20,'CLERK');
  END IF; 
  
  FETCH emp_cursor INTO  emp_record; 
  EXIT WHEN emp_cursor%NOTFOUND;
  
  dbms_output.put_line
     ('rowcount is:'|| emp_cursor%ROWCOUNT || '-- empno is:' || emp_record.empno 
        || '-- emp name is:' || emp_record.ename);

END LOOP;

IF emp_cursor%ISOPEN  THEN
     dbms_output.put_line('Now to close cursor!');
     CLOSE emp_cursor;
END IF; 


END;
/

运行结果

anonymous block completed
rowcount is:1-- empno is:7499-- emp name is:ALLEN
rowcount is:2-- empno is:7521-- emp name is:WARD
rowcount is:3-- empno is:7654-- emp name is:MARTIN
rowcount is:4-- empno is:7844-- emp name is:TURNER
Now to close cursor!
-------------------------------
rowcount is:1-- empno is:7369-- emp name is:SMITH
rowcount is:2-- empno is:7876-- emp name is:ADAMS
Now to close cursor!

结束