oracl存储过程提示字符串缓冲区太小

在进行调用一个存储过程时，报了字符串缓冲区太小的提示，查看了定义的字符串大小都满足业务需要，报错位置偏差了几行导致找了半天。最后发现原来是存储过程中使用到了wm_concat函数，在oracle中，wm_concat仅支持4000个字节容量，超过就会报错。我这个业务因为只做拼接后面拿出去循环，给函数内部加个distinct去重就好了
wm_concat(distinct(case when …))看到别的兄弟用别的拼接方法

select XMLAGG(XMLELEMENT(E, p_codes || ',')).EXTRACT('//text()').getclobval() codes from dual

后面会多出来一个“，”，可以用substring去掉