55: );
56: if (p_X_SUCCESS <> 0)
57: then RAISE invalid_sql;
58: end if;
59: c := dbms_sql.open_cursor;
60: -- test your SQL
61: dbms_sql.parse( c , p_X_SELECT_WC,dbms_sql.native);--dbms_sql.native) ;
62: -- get the column into rec_tab pl/sql table
63: dbms_sql.describe_columns( c , col_cnt , rec_tab ) ;
57: then RAISE invalid_sql;
58: end if;
59: c := dbms_sql.open_cursor;
60: -- test your SQL
61: dbms_sql.parse( c , p_X_SELECT_WC,dbms_sql.native);--dbms_sql.native) ;
62: -- get the column into rec_tab pl/sql table
63: dbms_sql.describe_columns( c , col_cnt , rec_tab ) ;
64: dbms_sql.close_cursor (c);
65: P_SQL_WC:=p_X_SELECT_WC;
59: c := dbms_sql.open_cursor;
60: -- test your SQL
61: dbms_sql.parse( c , p_X_SELECT_WC,dbms_sql.native);--dbms_sql.native) ;
62: -- get the column into rec_tab pl/sql table
63: dbms_sql.describe_columns( c , col_cnt , rec_tab ) ;
64: dbms_sql.close_cursor (c);
65: P_SQL_WC:=p_X_SELECT_WC;
66: P_SQL_NC:=p_X_SELECT_NC;
67: P_RET:='S';
60: -- test your SQL
61: dbms_sql.parse( c , p_X_SELECT_WC,dbms_sql.native);--dbms_sql.native) ;
62: -- get the column into rec_tab pl/sql table
63: dbms_sql.describe_columns( c , col_cnt , rec_tab ) ;
64: dbms_sql.close_cursor (c);
65: P_SQL_WC:=p_X_SELECT_WC;
66: P_SQL_NC:=p_X_SELECT_NC;
67: P_RET:='S';
68: return;