How to convert result rows into comma separated values

Question

hi,
Version
BANNER
Oracle Database 11g Enterprise Edition Release 11.1.0.7.0 - 64bit Production
PL/SQL Release 11.1.0.7.0 - Production
CORE     11.1.0.7.0     Production
TNS for Linux: Version 11.1.0.7.0 - Production
NLSRTL Version 11.1.0.7.0 - ProductionQuery
Select distinct prcdr_code from procedure p where P.PRCDR_CTGRY_LKPCD='P' ;
Output
PRCDR_CODE
0001F
0001T
0002F
0002T
0003F
0003T
0004F
0005F
0005T
0006F
0006T
0007F
0007T
0008F
0008T
0009F
0009T
000VA
000VG
Desired Output
0001F,0001T,0002F,0002T .................
My work
i tried this .....
Select distinct wm_concat(prcdr_code) as re from procedure p where P.PRCDR_CTGRY_LKPCD='P'  ;
But i got ORA-22813: operand value exceeds system limits error
Please help me ..Thanks,
P Prakash
Edited by: prakash on Jan 4, 2012 9:05 AM

Answer 1

Aggregating CLOB's....
user defined aggregate function can do it...
create or replace type clobagg_type as object
  text clob,
  static function ODCIAggregateInitialize(sctx in out clobagg_type) return number,
  member function ODCIAggregateIterate(self in out clobagg_type, value in clob) return number,
  member function ODCIAggregateTerminate(self in clobagg_type, returnvalue out clob, flags in number) return number,
  member function ODCIAggregateMerge(self in out clobagg_type, ctx2 in clobagg_type) return number
create or replace type body clobagg_type is
  static function ODCIAggregateInitialize(sctx in out clobagg_type) return number is
  begin
    sctx := clobagg_type(null) ;
    return ODCIConst.Success ;
  end;
  member function ODCIAggregateIterate(self in out clobagg_type, value in clob) return number is
  begin
    self.text := self.text || value ;
    return ODCIConst.Success;
  end;
  member function ODCIAggregateTerminate(self in clobagg_type, returnvalue out clob, flags in number) return number is
  begin
    returnValue := self.text;
    return ODCIConst.Success;
  end;
  member function ODCIAggregateMerge(self in out clobagg_type, ctx2 in clobagg_type) return number is
  begin
    self.text := self.text || ctx2.text;
    return ODCIConst.Success;
  end;
end;
create or replace function clobagg(input clob) return clob
  deterministic
  parallel_enable
  aggregate using clobagg_type;
SQL> select trim(',' from clobagg(ename||',')) as enames from emp;
ENAMES
SMITH,ALLEN,WARD,JONES,MARTIN,BLAKE,CLARK,SCOTT,KING,TURNER,ADAMS,JAMES,FORD,MILLER
SQL> ed
Wrote file afiedt.buf
  1  with t as
  2    (select 'PFL' c1, 0 c2,110 c3 from dual union all
  3     select 'LHL', 0 ,111 from dual union all
  4     select 'PHL', 1, 111 from dual union all
  5     select 'CHL', 2, 111 from dual union all
  6     select 'DHL', 0, 112 from dual union all
  7     select 'VHL', 1, 112 from dual union all
  8     select 'CPHL', 0, 114 from dual union all
  9     select 'WDCL', 1, 114 from dual union all
10     select 'AHL' ,2 ,114 from dual union all
11     select 'NFDL', 3, 114 from dual)
12  --
13  -- end of test data
14  --
15  select trim(clobagg(c1||' ')) as c1, c3
16  from (select * from t order by c3, c2)
17  group by c3
18* order by c3
SQL> /
C1                                     C3
PFL                                   110
LHL CHL PHL                           111
DHL VHL                               112
CPHL AHL NFDL WDCL                    114