oracle 存储过程 wm_concat使用distinct报错

现在要求以type为查询条件，一类type的查到一行里，其他字段数据重复的去重：

SELECT wm_concat(ISBN) as ISBN,wm_concat(BOOKNAME) as BOOKNAME,type as type,
wm_concat(distinct AUTHOR) as AUTHOR,wm_concat(distinct PUBLISH) as PUBLISH,
wm_concat(distinct PUBLISHTIME) as PUBLISHTIME,wm_concat(distinct PRICE) as PRICE,
wm_concat(distinct FLOOR) as FLOOR,wm_concat(distinct BOOKSHELF) as BOOKSHELF,
wm_concat(distinct INTRODUCE) as INTRODUCE,SYSDATE AS SJSCRQ FROM BOOKS group by type

但是写到存储过程：

这时在存储过程中直接使用wm_concat结合distinct去重就会报错，提示不允许在存储过程里同时使用wm_concat和distinct

---

---

---

那就只好用动态语句来解决：

create or replace procedure P_DS_BOOK
as
       v_sql    varchar2(30000);
begin

DELETE FROM DS_BOOKS WHERE to_char(SJSCRQ,'yyyy-mm-dd')=to_char(sysdate,'yyyy-mm-dd');
COMMIT;

---v-sql变量里，原sql语句有'的用''替换
v_sql :='INSERT INTO DS_BOOKS
(ISBN,BOOKNAME,type,AUTHOR,PUBLISH,PUBLISHTIME,PRICE,FLOOR,BOOKSHELF,INTRODUCE,SJSCRQ)

SELECT wm_concat(ISBN) as ISBN,wm_concat(BOOKNAME) as BOOKNAME,type as type,
wm_concat(distinct AUTHOR) as AUTHOR,wm_concat(distinct PUBLISH) as PUBLISH,
wm_concat(distinct PUBLISHTIME) as PUBLISHTIME,wm_concat(distinct PRICE) as PRICE,
wm_concat(distinct FLOOR) as FLOOR,wm_concat(distinct BOOKSHELF) as BOOKSHELF,
wm_concat(distinct INTRODUCE) as INTRODUCE,SYSDATE AS SJSCRQ FROM BOOKS group by type';

EXECUTE IMMEDIATE v_sql;

COMMIT;

END;