Help in production environment ASAP please

Question

Hello,
I'm in a middle of a problem right now on our production environment.
I need to read and compare the information inside a long datatype column.
To do this I use the following function to read the long field:
create or replace function getlong_vw( p_tname in varchar2,
p_cname in varchar2,
p_cname2 in varchar2) return varchar2
as
l_cursor integer default dbms_sql.open_cursor;
l_n number;
l_long_val varchar2(32767);
l_long_len number;
l_buflen number := 4000;
l_curpos number := 0;
l_pos_start number := 1;
counter integer := 0;
l_long_txt varchar2(32767);
begin
dbms_sql.parse( l_cursor,
'select ' || p_cname || ' from ' || p_tname ||
' where view_name = :x',
dbms_sql.native );
dbms_sql.bind_variable( l_cursor, ':x', p_cname2 );
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;
But with this, I can only read the first 4000 bytes inside the long field.
What I need, is read more then that, eventually until the 32Kb limit.
So I try to use a while loop before the column_value_long and put the data inside a 32Kb varchar2 variable and return in the end
Something like :
if (dbms_sql.fetch_rows(l_cursor)>0)
then
while l_pos_start <= 32767 loop
dbms_sql.column_value_long(l_cursor, l_pos_start, l_buflen, 0 ,
l_long_val, l_long_len );
l_pos_start := l_pos_start+l_buflen;
l_long_txt := l_long_txt||l_long_val;
end loop;
end if;
dbms_sql.close_cursor(l_cursor);
return l_long_txt;
end getlong;
But I keep getting the error ORA-01007: variable not in select list
Can anyone help me, what I'm doing wrong?
How can I return the value inside a long field until the 32Kb and not only the first 4000 bytes?
Thank you very much in advance
Rui

Answer 1

Sorry guys,
Keith is right, I mess up the code when I made the copy paste.
This is the current function code:
CREATE OR REPLACE FUNCTION Getlong
(p_tname IN VARCHAR2,
p_cname IN VARCHAR2,
p_rowid IN ROWID)
RETURN VARCHAR2
AS
l_cursor INTEGER DEFAULT dbms_sql.open_cursor;
l_n NUMBER;
l_long_val VARCHAR2(32767);
l_long_len NUMBER;
l_buflen NUMBER := 4000;
l_curpos NUMBER := 0;
l_pos_start NUMBER := 1;
counter INTEGER := 0;
l_long_txt VARCHAR2(32767);
BEGIN
dbms_sql.Parse(l_cursor,'select '
||p_cname
||' from '
||p_tname
||' where rowid = :x',dbms_sql.native);
dbms_sql.Bind_variable(l_cursor,':x',p_rowid);
dbms_sql.Define_column_long(l_cursor,1);
l_n := dbms_sql.Execute(l_cursor);
IF (dbms_sql.Fetch_rows(l_cursor) &gt; 0) THEN
WHILE l_pos_start &lt;= 32767 LOOP
dbms_sql.Column_value_long(l_cursor,l_pos_start,l_buflen,0,l_long_val,
l_long_len);
l_pos_start := l_pos_start + l_buflen;
l_long_txt := l_long_txt
||l_long_val;
END LOOP;
END IF;
dbms_sql.Close_cursor(l_cursor);
RETURN l_long_txt;
END getlong;
If I have the while loop function comment, the function works well and return the first 4000 charaters of the long field.
If I try to use the while to get more characters I get the ORA-01007: variable not in select list
What I'm doing wrong?
Thank You
Edited by: user1242475 on 27/Fev/2009 17:40
Edited by: user1242475 on 27/Fev/2009 17:41