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;