TechFAQ

CREATE OR REPLACE PACKAGE pack1
IS
TYPE etable IS TABLE OF employees%ROWTYPE
INDEX BY BINARY_INTEGER;

PROCEDURE proc1 (emptable OUT etable);
END;
/

CREATE OR REPLACE PACKAGE BODY pack1
IS
PROCEDURE proc1 (emptable OUT etable)
IS
i BINARY_INTEGER := 0;
BEGIN
FOR c2 IN (SELECT *
FROM employees
WHERE salary > 10000)
LOOP
emptable (i) := c2;
i := i + 1;
END LOOP;

FOR i IN emptable.FIRST .. emptable.LAST
LOOP
DBMS_OUTPUT.put_line ('VALUE OF I :' || emptable (i).employee_id);
END LOOP;
END;
END;
/

SHOW ERRORS