Process Query (1)
uParse query and get column list:
FUNCTION f_getQuery_cl (in_sql_tx, i_limit_nr
number:=64000)
uRETURN CLOB IS
u v_cur integer := dbms_sql.open_cursor;
u v_columns_nr number :=
0;
u v_columns_tt
dbms_sql.desc_tab;
...
u pragma
autonomous_transaction;
uBEGIN
DBMS_SQL.parse
(v_cur, in_sql_tx, DBMS_SQL.native);
(v_cur, in_sql_tx, DBMS_SQL.native);
DBMS_SQL.describe_columns
(v_cur, v_columns_nr, v_columns_tt);
(v_cur, v_columns_nr, v_columns_tt);
FOR i IN 1 ..
v_columns_nr LOOP
v_columnList_tx :=
v_columnList_tx || '||chr(9)||''"''||v_query_tt
(i).'||
v_columns_tt (i).col_name||'||''"'' ';
v_header :=
v_header||chr(9)||'"'||
v_columns_tt (i).col_name||'"';
v_columns_tt (i).col_name||'"';
END LOOP;