1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25
|
CREATE OR REPLACE function getlong( p_cname in varchar2,
p_tname in varchar2,
pi_pk_column in varchar2,
p_value in varchar2
) return varchar2
as
l_cursor integer default dbms_sql.open_cursor;
l_n number;
l_long_val varchar2(2000);
l_buflen number := 2000;
l_long_len number;
l_curpos number := 0;
begin
dbms_sql.parse( l_cursor,'select ' || p_cname || ' from ' || p_tname || ' where ' || pi_pk_column || ' = ', || p_value,dbms_sql.native );
dbms_sql.define_column_long(l_cursor, 1);
l_n := dbms_sql.execute(l_cursor);
if (dbms_sql.fetch_rows(l_cursor)>0)
then
dbms_sql.column_value_long(l_cursor, 1, l_buflen, l_curpos,l_long_val, l_long_len);
end if;
dbms_sql.close_cursor(l_cursor);
return l_long_val;
end getlong;
/ |
Partager