Load a table in a PL/SQL variable

Question

Hi!
I'm using Oracle 8i and I'm interested in load a table from my database in a PL/SQL variable.In addition,I'm using Nested Table Type for loading a database table in a variable.When I load the table in the variable, I try doing a SQL query to the variable (is a nested table) but it doesn't work.There is some solution?
In the following lines there is an example about what I'm trying:
PACKAGE Types AS
TYPE cursor_type IS REF CURSOR;
END Types;
CREATE TABLE EXAMPLE(
ID NUMBER(4),
VAL Number(3)
CREATE or replace TYPE My_Row_Type AS OBJECT
ID NUMBER(4),
NStreet Number(3)
CREATE OR REPLACE PACKAGE PROVA AS
TYPE My_Tab_Type IS TABLE OF My_Row_Type;
PROCEDURE GetEXAMPLE (p_recordset OUT types.cursor_type);
END PROVA;
CREATE OR REPLACE PACKAGE BODY PROVA AS
PROCEDURE GetEXAMPLE (p_recordset OUT types.cursor_type) AS
v_tab My_Tab_Type := My_Tab_Type();
BEGIN
FOR cur_row IN (SELECT * FROM EXAMPLE) LOOP
v_tab.extend;
v_tab(v_tab.Last) := My_Row_Type(cur_row.ID,     cur_row.NStreet);
END LOOP;
-- Open REF CURSOR for outout.
OPEN p_recordset FOR
SELECT *
FROM Table(Cast(v_tab As My_Tab_Type));
END GetEXAMPLE ;
END PROVA;
When I execute the procedure GetEXAMPLE, Oracle shows me the following error:
ERROR en línea 1:
ORA-00600: código de error interno, argumentos: [15419], [severe error during
PL/SQL execution], [], [], [], [], [], []
ORA-06544: PL/SQL: error interno, argumentos: [pfrrun.c:pfrbnd1()], [], [], [],
ORA-06553: PLS-801: error interno [0]

Answer 1

Create your My_Tab_Type as a SQL Object Type, instead of a PL/SQL Table Type:
SQL> CREATE TABLE example
  2    (id     NUMBER (4),
  3       nstreet NUMBER (3))
  4  /
Table created.
SQL> INSERT INTO example VALUES (1234, 123)
  2  /
1 row created.
SQL> INSERT INTO example VALUES (2345, 234)
  2  /
1 row created.
SQL> COMMIT
  2  /
Commit complete.
SQL> CREATE OR REPLACE TYPE My_Row_Type AS OBJECT
  2    (id     NUMBER (4),
  3       nstreet NUMBER (3));
  4  /
Type created.
SQL> CREATE OR REPLACE TYPE My_Tab_Type AS TABLE OF My_Row_Type;
  2  /
Type created.
SQL> CREATE OR REPLACE PACKAGE types
  2  AS
  3    TYPE cursor_type IS REF CURSOR;
  4  END types;
  5  /
Package created.
SQL> CREATE OR REPLACE PACKAGE prova
  2  AS
  3    PROCEDURE GetExample
  4        (p_recordset OUT types.cursor_type);
  5  END prova;
  6  /
Package created.
SQL> SHOW ERRORS
No errors.
SQL> CREATE OR REPLACE PACKAGE BODY prova
  2  AS
  3    PROCEDURE GetExample
  4        (p_recordset OUT types.cursor_type)
  5    AS
  6        v_tab My_Tab_Type := My_Tab_Type();
  7    BEGIN
  8        FOR cur_row IN (SELECT * FROM example) LOOP
  9          v_tab.EXTEND;
10          v_tab(v_tab.LAST) := My_Row_Type(cur_row.id, cur_row.nstreet);
11        END LOOP;
12        -- Open REF CURSOR for output.
13        OPEN p_recordset FOR
14        SELECT *
15        FROM TABLE(CAST(v_tab AS My_Tab_Type));
16    END GetExample;
17  END prova;
18  /
Package body created.
SQL> SHOW ERRORS
No errors.
SQL> VARIABLE g_ref REFCURSOR
SQL> EXEC prova.GetExample (:g_ref)
PL/SQL procedure successfully completed.
SQL> PRINT g_ref
        ID    NSTREET                                                          
      1234        123                                                          
      2345        234                                                          
2 rows selected.