This code doesn't work:
Code: Select all
Variant vPar[1];
vPar[0] = 11;
OraSession1->ExecProc("GET_MAIN_TREE_NODE_SQL", vPar, 0);
Code: Select all
function GET_MAIN_TREE_NODE_SQL(rootid in number) return clob
is
retVal clob;
begin
select META_TREE."SQL"
into retVal
from META_TREE
where META_TREE.ROOT_ID = rootid;
return retVal;
end;