create or replace function getstr return varchar2 as cursor t_sor is select distinct name from a; retstr varchar2(100); begin for v_sor in t_sor loop retstr:=retstr||v_sor.name||','; end loop; retstr:=substr(retstr,1,lengthb(retstr)-1); return retstr; end; /select getstr from dual;
return varchar2
as
cursor t_sor is
select distinct name from a;
retstr varchar2(100);
begin
for v_sor in t_sor loop
retstr:=retstr||v_sor.name||',';
end loop;
retstr:=substr(retstr,1,lengthb(retstr)-1);
return retstr;
end;
/select getstr from dual;