błąd to messaget := testcursor.column1;
ponieważ kursor jest do tego czasu zamknięty (powinieneś po prostu użyć testcursorrec.column2
.
Twój kod nie sprawdza, czy nie ma wierszy ani zduplikowanych wierszy. możesz to uprościć do
create or replace function testfunction
(
somevalue in table1.column1%type
)
return table1.column2%type
AS
messaget table1.column2%type; -- use %type where possible.
begin
select t.column2
into messaget
from table1 t
where t.column1 = somevalue
and rownum = 1;--only if you dont care if theres 2+ rows.
return messaget;
exception
when no_data_found
then
return null; -- if you want to ignore no rows.
end;