Declaring a Cursor within a Procedure
SQL> SQL> drop table emp; Table dropped.-- w w w .j a v a2 s . c o m SQL> create table emp( 2 empno number(4,0), 3 ename varchar2(10), 4 job varchar2(9), 5 mgr number(4,0), 6 hiredate date, 7 sal number(7,2), 8 comm number(7,2), 9 deptno number(2,0) 10 ); Table created. SQL> SQL> insert into emp values(7839, 'KING', 'PRESIDENT', null, to_date('17-11-1981','dd-mm-yyyy'), 5000, null, 10); SQL> insert into emp values(7698, 'BLAKE', 'MANAGER', 7839,to_date('1-5-1981','dd-mm-yyyy'), 2850, null, 30); SQL> insert into emp values(7782, 'CLARK', 'MANAGER', 7839,to_date('9-6-1981','dd-mm-yyyy'), 2450, null, 10); SQL> insert into emp values(7566, 'JONES', 'MANAGER', 7839,to_date('2-4-1981','dd-mm-yyyy'), 2975, null, 20); SQL> insert into emp values(7788, 'SCOTT', 'ANALYST', 7566,to_date('13-JUL-87','dd-mm-rr') - 85, 3000, null, 20); SQL> SQL> SQL> create or replace procedure p_printEmps is 2 cursor c_emp is 3 select * 4 from emp; 5 r_emp c_emp%ROWTYPE; 6 begin 7 open c_emp; 8 loop 9 fetch c_emp into r_emp; 10 exit when c_emp%NOTFOUND; 11 DBMS_OUTPUT.put_line(r_emp.eName); 12 end loop; 13 close c_emp; 14 end; 15 / Procedure created. SQL> SQL> EXEC p_printEmps(); KING BLAKE CLARK JONES SCOTT PL/SQL procedure successfully completed. SQL>