关于Oracle自定义分组函数

Create Table wbq_test (a varchar2(10),b int);
-tp R(oQjL @0Insert Into wbq_test values ('aa',1);
$Z!\{Gy3Fb]0Insert Into wbq_test values ('bb',1);ITPUB个人空间t7aR:^0j.v/nO+v
Insert Into wbq_test values ('cc',1);
E'Aa.Z%{t H5u0Insert Into wbq_test values ('dd',2);ITPUB个人空间(g!}nTmf)`
Insert Into wbq_test values ('ee',2);ITPUB个人空间+wRD{{g$s
Insert Into wbq_test values ('ff',3);ITPUB个人空间voe+_f9S,@m
Insert Into wbq_test values ('gg',3);ITPUB个人空间II*{B2C&O&k[1I/S
Insert Into wbq_test values ('hh',3);
%S-L;IsYl$Z0Commit;
c(dt x-g%D0select * from wbq_test;

create or replace function f_GroupByColumn(GroupColumnValue in Varchar2)
gD2[/R1x C0return varchar2 is
!WvJ2n0@~5M0type cur_type is ref cursor;ITPUB个人空间'u3U:G9Zz Z
myCur cur_type;ITPUB个人空间,Rcbl?p.}xe"O!B
v_Column1Value varchar2(20);
*yAI a4f8Cg*ddX0v_Result varchar2(2000);ITPUB个人空间6C%el| Y0k^
begin
&_V't7E@8s4d|7b"B[#[0Open myCur for Select a from wbq_test where b=GroupColumnValue;ITPUB个人空间$F t MC4f"J3y
LoopITPUB个人空间ee'c4Y8xa
Fetch myCur Into v_Column1Value;ITPUB个人空间9R$rbug9BTO
Exit When myCur%notfound;
7E|j+sJ&V0v_Result:=v_Result||v_Column1Value||',';
L;n R,j+H z!O@I-P$re0End Loop;
+uc,jS7Td"Z(D0Close myCur;ITPUB个人空间^.PP!x$Z d%U
return(v_Result); ITPUB个人空间 a^^ |R^/v6\;W*b
end ;

select b,f_GroupByColumn(b) from wbq_test group by b;