sql> set serveroutput on
sql> declare
2 type mytable is table of emp%rowtype;
3 l_data mytable;
4 l_refc sys_refcursor;
5 begin
6 open l_refc for
7 select empno, ename, job, mgr, hiredate, sal, comm, deptno from emp;
8
9 fetch l_refc bulk collect into l_data;
10
11 close l_refc;
12
13 for i in 1 .. l_data.count
14 loop
15 dbms_output.put_line ( l_data (i).ename
16 || ' was hired since '
17 || l_data (i).hiredate
18 );
19 end loop;
20 end;
21 /
smith was hired since 17-dec-80
allen was hired since 20-feb-81
ward was hired since 22-feb-81
jones was hired since 02-apr-81
martin was hired since 28-sep-81
blake was hired since 01-may-81
clark was hired since 09-jun-81
scott was hired since 19-apr-87
king was hired since 17-nov-81
turner was hired since 08-sep-81
adams was hired since 23-may-87
james was hired since 03-dec-81
ford was hired since 03-dec-81
miller was hired since 23-jan-82
pl/sql procedure successfully completed.
|
