Oracle创建主键时处理重复数据的程序

/****************************
v_index 为主键语句
tablename 为表名
written by：wonder
modified by:
****************************/

CREATE OR REPLACE PROCEDURE prc_delete(v_index IN VARCHAR2, tablename IN VARCHAR2) IS
v_sql VARCHAR2(2000);
v_sql1 VARCHAR2(2000);

BEGIN
EXECUTE IMMEDIATE upper('truncate table except_table');
v_sql1 := upper(REPLACE(v_index, ';', ' ') || ' exceptions into except_table');
BEGIN
EXECUTE IMMEDIATE v_sql1;
EXCEPTION
WHEN OTHERS THEN
NULL;
END;

v_sql := upper('delete from ' || tablename || ' where rowid in (select row_id from except_table where table_name=''' ||
tablename || ''')');
EXECUTE IMMEDIATE v_sql;
EXECUTE IMMEDIATE REPLACE(v_index, ';', ' ');
COMMIT;
END prc_delete;