[Home] [Help]
5: l_select_col_stmt VARCHAR2(4000);
6: l_select_val_stmt VARCHAR2(4000);
7: l_cursorID INTEGER;
8: l_cursorID2 INTEGER;
9: l_column_name all_tab_columns.column_name%TYPE;
10: l_data_type all_tab_columns.data_type%TYPE;
11: l_dummy INTEGER;
12: l_index NUMBER;
13:
6: l_select_val_stmt VARCHAR2(4000);
7: l_cursorID INTEGER;
8: l_cursorID2 INTEGER;
9: l_column_name all_tab_columns.column_name%TYPE;
10: l_data_type all_tab_columns.data_type%TYPE;
11: l_dummy INTEGER;
12: l_index NUMBER;
13:
14: BEGIN
14: BEGIN
15: l_cursorID := DBMS_SQL.OPEN_CURSOR;
16:
17: --l_select_col_stmt := 'select column_name, data_type from dba_tab_columns' || ' where table_name = :tab_name and owner = ''LNS'' order by column_id';
18: l_select_col_stmt := 'select col.column_name, col.data_type from all_tab_columns col where col.table_name = ad_zd_table.ev_view(:tab_name) and col.owner = ''LNS'' order by col.column_id';
19:
20: l_select_val_stmt := 'select';
21:
22: DBMS_SQL.PARSE(l_cursorID, l_select_col_stmt, DBMS_SQL.V7);