SQL> ed
Wrote file afiedt.buf

  1  declare
  2    type r_emp is record(
  3     empno emp.empno%type
  4    ,ename emp.ename%type
  5    ,sal emp.sal%type
  6    );
  7    type t_emp is table of r_emp;
  8    vt_emp t_emp;
  9   procedure p (pt_emp out t_emp) as
 10   begin
 11    null;
 12   select empno,ename,sal  bulk collect into pt_emp from emp;
 13   end;
 14  begin
 15   p(vt_emp);
 16   for i in vt_emp.first .. vt_emp.LAST loop
 17    DBMS_OUTPUT.PUT_LINE(vt_emp(I).ename);
 18   end loop;
 19* end;
SQL> set serveroutput on
SQL> /
SMITH
ALLEN
WARD
JONES
MARTIN
BLAKE
CLARK
SCOTT
KING
TURNER
ADAMS
JAMES
FORD
MILLER

PL/SQL procedure successfully completed.

SQL>