Creating a dynamic lov based on a column

Question

Hi,
I want to create a dynamic lov based on a column in a database-table.
Eg. the query
'select code, description from code_table'
is the contents of the column 'lov_query' in the table 'parameters'.
For every parameter there can be a different lov-query, but the result is always
two columns (code and description, number and name, etc.), exactly what you need to use in a lov.
I've written a (dbms_sql) function that takes the parameter-id and returns the lov_query.
create or replace function "GET_PMR_LOV"
(pmr_id in NUMBER)
return VARCHAR2
is
cur INTEGER := DBMS_SQL.OPEN_CURSOR;
fdbk INTEGER;
l_pmr_id NUMBER(9) := pmr_id;
l_stmnt VARCHAR2(2000);
begin
DBMS_SQL.PARSE
(cur, 'select pmr.lov_query from parameters pmr where pmr.ID ' || ' = 'L_PMR_ID', DBMS_SQL.NATIVE);
DBMS_SQL.BIND_VARIABLE (cur, 'L_PMR_ID', l_pmr_id);
DBMS_SQL.DEFINE_COLUMN (cur, 1, l_stmnt, 2000);
fdbk := DBMS_SQL.EXECUTE (cur);
fdbk := DBMS_SQL.FETCH_ROWS (cur);
IF fdbk > 0
THEN
DBMS_SQL.COLUMN_VALUE (cur, 1, l_stmnt);
return (l_stmnt);
ELSE     
return null;
END IF;
DBMS_SQL.CLOSE_CURSOR (cur);
END;
But now I'm stuck on how to pass on this statement in HTMLDB
as an dynamic lov, I don't seem to be able to execute this statement
into the two display and return columns. Any ideas?

Answer 1

Hello again,
This lov is on an updatable report-column where the user has to make a choice from an non-named, popup and query-based lov. In the lov-query box I have just put:
"return get_pmr_lov(:p41_param_id)" (without the quotes ;-)
Here's my latest version plus an alternative, which both seem to work fine:
create or replace function "GET_PMR_LOV"
(pmr_id in NUMBER)
return VARCHAR2
is
cur INTEGER := DBMS_SQL.OPEN_CURSOR;
fdbk INTEGER;
l_pmr_id NUMBER(9) := pmr_id;
l_stmnt VARCHAR2(1000);
begin
DBMS_SQL.PARSE (cur, 'select pmr.lov_query from paramaters pmr where pmr.ID ' || '= :L_PMR_ID', DBMS_SQL.NATIVE);
DBMS_SQL.BIND_VARIABLE (cur, 'L_PMR_ID', l_pmr_id);
DBMS_SQL.DEFINE_COLUMN (cur, 1, l_stmnt, 1000);
fdbk := DBMS_SQL.EXECUTE (cur);
fdbk := DBMS_SQL.FETCH_ROWS (cur);
IF fdbk > 0 THEN
DBMS_SQL.COLUMN_VALUE (cur, 1, l_stmnt);
return (l_stmnt);
ELSE
return null;
END IF;
DBMS_SQL.CLOSE_CURSOR (cur);
END;
create or replace function "GET_PMR_LOV2"
(pmr_id in NUMBER)
return VARCHAR2
is
l_pmr_id NUMBER(9) := pmr_id;
l_stmnt VARCHAR2(1000);
BEGIN
EXECUTE IMMEDIATE 'select pmr.lov_query from parameters pmr where pmr.ID = :1'
INTO l_stmnt USING l_pmr_id;
return l_stmnt;
END;
The error-message remains the same, unable to bind :p41_param_id !