Oracle PL/SQL - Declaring a Cursor within a Procedure

Description

Declaring a Cursor within a Procedure

Demo

SQL>
SQL> drop table emp;

Table dropped.--  w w  w. ja  v a2s .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>

Related Topic