create or replace function get(p_rol1 in varchar2)
return varchar2 
is
 Result varchar2(100);
 
 cursor rad_cursor is
        select ROL2 from testa 
        where ROL1=p_rol1 ;
v_count Number;  
begin
v_count:=0;
   for v_sor in rad_cursor loop
     if v_count=0 then
       Result:=v_sor.ROL2;
       v_count:=v_count+1;
     else
      Result:=Result||','||v_sor.ROL2;
     end if;
    end loop; 
   return(Result);
end get;
/select rol1,get(rol1) from testa group by rol1