CURSOR on a temp table?

Question

hello
*okay this following is WORKING and CORRECT:*
CREATE OR REPLACE FUNCTION fnGetParents
ObjectId number,
ObjectClassifier varchar2
RETURN typescursorType
IS
fnGetParents_cursor types.cursorType;
BEGIN
EXECUTE IMMEDIATE (''CREATE GLOBAL TEMPORARY TABLE TMP_HierarchyMap
Id numeric(19,0) NOT NULL,
ParentId numeric(19,0) NOT NULL,
ChildId numeric(19,0) NOT NULL,
) on commit delete rows'');
EXECUTE IMMEDIATE (''CREATE GLOBAL TEMPORARY TABLE TEMP_ID
Id numeric(19,0) NOT NULL,
bDone NUMERIC(1,0) NOT NULL
) on commit delete rows'');
/* recursive call: spRecursiveGetParents(ObjectId, ObjectClassifier); */
OPEN fnGetParents_cursor FOR
SELECT
Id,
ParentId,
ChildId,
FROM TMP_HierarchyMap;
RETURN fnGetParents_cursor;
END fnGetParents;
My question is, how can I do something like this:
EXECUTE IMMEDIATE 'CREATE OR REPLACE TYPE TmpHierarchyMapObjType AS OBJECT
Id numeric(19,0) ,
ParentId numeric(19,0),
ChildId numeric(19,0),
EXECUTE IMMEDIATE 'CREATE OR REPLACE TYPE TmpHierarchyMapTableType AS TABLE OF TmpHierarchyMapObjType;';
EXECUTE IMMEDIATE 'CREATE OR REPLACE PACKAGE types AS
TYPE cursorType IS REF CURSOR;
END; ';
CREATE OR REPLACE FUNCTION fnGetParents
ObjectId number,
ObjectClassifier varchar2
RETURN typescursorType
IS
TmpHierarchyMap TmpHierarchyMapTableType := TmpHierarchyMapTableType();
fnGetParents_cursor types.cursorType;
BEGIN
EXECUTE IMMEDIATE (''CREATE GLOBAL TEMPORARY TABLE TMP_HierarchyMap
Id numeric(19,0) NOT NULL,
ParentId numeric(19,0) NOT NULL,
ChildId numeric(19,0) NOT NULL,
) on commit delete rows'');
EXECUTE IMMEDIATE (''CREATE GLOBAL TEMPORARY TABLE TEMP_ID
Id numeric(19,0) NOT NULL,
bDone NUMERIC(1,0) NOT NULL
) on commit delete rows'');
/* recursive call: spRecursiveGetParents(ObjectId, ObjectClassifier); */
OPEN fnGetParents_cursor FOR
SELECT
Id,
ParentId,
ChildId,
FROM TMP_HierarchyMap;
-- I want to learn how to enumerate a temp table and put it in a nested table but keep getting error on loop
FOR oMap in spGetChildren_cursor LOOP
                         TmpHierarchyMap.Extend();
                         TmpHierarchyMap(TmpHierarchyMap.Count) := TmpHierarchyMapObjType( oMap.Id                                                                                               ,oMap.ParentId                                                                                               , oMap.ChildId
                    END LOOP;
RETURN fnGetParents_cursor;
END fnGetParents;
I just want to know how for sake of learning.
Thanks

Answer 1

As mentioned yesterday, if you create database objects dynamically, you have to query them dynamically.
For example, you could use the DBMS_SQL package, which offers one of the most flexible ways of dyanamic queries..
[DBMS_SQL Package|http://download.oracle.com/docs/cd/B19306_01/appdev.102/b14258/d_sql.htm#sthref6136]
CREATE OR REPLACE PROCEDURE run_query(p_sql IN VARCHAR2) IS
  v_finaltxt  VARCHAR2(4000);
  v_v_val     VARCHAR2(4000);
  v_n_val     NUMBER;
  v_d_val     DATE;
  v_ret       NUMBER;
  c           NUMBER;
  d           NUMBER;
  col_cnt     INTEGER;
  f           BOOLEAN;
  rec_tab     DBMS_SQL.DESC_TAB;
  col_num     NUMBER;
BEGIN
  c := DBMS_SQL.OPEN_CURSOR;
  DBMS_SQL.PARSE(c, p_sql, DBMS_SQL.NATIVE);
  d := DBMS_SQL.EXECUTE(c);
  DBMS_SQL.DESCRIBE_COLUMNS(c, col_cnt, rec_tab);
  FOR j in 1..col_cnt
  LOOP
    CASE rec_tab(j).col_type
      WHEN 1 THEN DBMS_SQL.DEFINE_COLUMN(c,j,v_v_val,2000);
      WHEN 2 THEN DBMS_SQL.DEFINE_COLUMN(c,j,v_n_val);
      WHEN 12 THEN DBMS_SQL.DEFINE_COLUMN(c,j,v_d_val);
    ELSE
      DBMS_SQL.DEFINE_COLUMN(c,j,v_v_val,2000);
    END CASE;
  END LOOP;
  FOR j in 1..col_cnt
  LOOP
    v_finaltxt := ltrim(v_finaltxt||','||lower(rec_tab(j).col_name),',');
  END LOOP;
  DBMS_OUTPUT.PUT_LINE(v_finaltxt);
  LOOP
    v_ret := DBMS_SQL.FETCH_ROWS(c);
    EXIT WHEN v_ret = 0;
    v_finaltxt := NULL;
    FOR j in 1..col_cnt
    LOOP
      CASE rec_tab(j).col_type
        WHEN 1 THEN DBMS_SQL.COLUMN_VALUE(c,j,v_v_val);
                    v_finaltxt := ltrim(v_finaltxt||',"'||v_v_val||'"',',');
        WHEN 2 THEN DBMS_SQL.COLUMN_VALUE(c,j,v_n_val);
                    v_finaltxt := ltrim(v_finaltxt||','||v_n_val,',');
        WHEN 12 THEN DBMS_SQL.COLUMN_VALUE(c,j,v_d_val);
                    v_finaltxt := ltrim(v_finaltxt||','||to_char(v_d_val,'DD/MM/YYYY HH24:MI:SS'),',');
      ELSE
        v_finaltxt := ltrim(v_finaltxt||',"'||v_v_val||'"',',');
      END CASE;
    END LOOP;
    DBMS_OUTPUT.PUT_LINE(v_finaltxt);
  END LOOP;
  DBMS_SQL.CLOSE_CURSOR(c);
END;
SQL> exec run_query('select * from emp');
empno,ename,job,mgr,hiredate,sal,comm,deptno
7369,"SMITH","CLERK",7902,17/12/1980 00:00:00,800,,20
7499,"ALLEN","SALESMAN",7698,20/02/1981 00:00:00,1600,300,30
7521,"WARD","SALESMAN",7698,22/02/1981 00:00:00,1250,500,30
7566,"JONES","MANAGER",7839,02/04/1981 00:00:00,2975,,20
7654,"MARTIN","SALESMAN",7698,28/09/1981 00:00:00,1250,1400,30
7698,"BLAKE","MANAGER",7839,01/05/1981 00:00:00,2850,,30
7782,"CLARK","MANAGER",7839,09/06/1981 00:00:00,2450,,10
7788,"SCOTT","ANALYST",7566,19/04/1987 00:00:00,3000,,20
7839,"KING","PRESIDENT",,17/11/1981 00:00:00,5000,,10
7844,"TURNER","SALESMAN",7698,08/09/1981 00:00:00,1500,0,30
7876,"ADAMS","CLERK",7788,23/05/1987 00:00:00,1100,,20
7900,"JAMES","CLERK",7698,03/12/1981 00:00:00,950,,30
7902,"FORD","ANALYST",7566,03/12/1981 00:00:00,3000,,20
7934,"MILLER","CLERK",7782,23/01/1982 00:00:00,1300,,10
PL/SQL procedure successfully completed.
SQL> exec run_query('select * from dept');
deptno,dname,loc
10,"ACCOUNTING","NEW YORK"
20,"RESEARCH","DALLAS"
30,"SALES","CHICAGO"
40,"OPERATIONS","BOSTON"
PL/SQL procedure successfully completed.Or you could build up a query to use with execute immediate, but then you will need to ensure you know what columns you expect as output.