|
SQL> CREATE OR REPLACE PROCEDURE do_query
2 (p_table_txt IN VARCHAR2,
3 p_cols_rec IN owa_util.ident_arr) IS
4 lv_column_list_txt VARCHAR2(32000);
5 lv_col_counter_num INTEGER;
6 lv_ignore_bln BOOLEAN;
7 BEGIN
8 lv_col_counter_num := 2;
9 LOOP
10 lv_column_list_txt := lv_column_list_txt ||
11 p_cols_rec(lv_col_counter_num) || ',';
12 lv_col_counter_num := lv_col_counter_num + 1;
13 END LOOP;
14 EXCEPTION
15 WHEN NO_DATA_FOUND THEN
16 lv_column_list_txt := SUBSTR(lv_column_list_txt, 1,LENGTH(lv_column_list_txt) - 1);
17 lv_ignore_bln := OWA_UTIL.TABLEPRINT(p_table_txt, 'BORDER',OWA_UTIL.HTML_TABLE, lv_column_list_txt);
18 END do_query;
19 /
Procedure created.
SQL>
|