11: l_select_col_stmt VARCHAR2(4000);
12: -- statement that retrieves a row with PK value p_id from p_table_name
13: l_select_val_stmt VARCHAR2(4000);
14: l_cursor INTEGER;
15: l_column_name DBA_TAB_COLUMNS.column_name%TYPE;
16: l_data_type DBA_TAB_COLUMNS.data_type%TYPE;
17: l_dummy INTEGER;
18: l_index NUMBER:=1;
19:
12: -- statement that retrieves a row with PK value p_id from p_table_name
13: l_select_val_stmt VARCHAR2(4000);
14: l_cursor INTEGER;
15: l_column_name DBA_TAB_COLUMNS.column_name%TYPE;
16: l_data_type DBA_TAB_COLUMNS.data_type%TYPE;
17: l_dummy INTEGER;
18: l_index NUMBER:=1;
19:
20: BEGIN
18: l_index NUMBER:=1;
19:
20: BEGIN
21: l_cursor := DBMS_SQL.OPEN_CURSOR;
22: l_select_col_stmt := 'select column_name, data_type from dba_tab_columns'
23: || ' where table_name = :tab_name and owner = ''XLE'' order by column_id';
24: l_select_val_stmt := 'select';
25:
26: DBMS_SQL.PARSE(l_cursor, l_select_col_stmt, DBMS_SQL.V7);