Help me create a procedure to rename plenty of constraints

Question

about 500 tables' constraints require to be renamed from SYS**** to the table's name.
what procedure could you guys think of?
If you've used a previous one please let me know, or if you know where I could download a package, procedure or something, show me the link to get it.
My DB is: version 8173

Answer 1

This Procedure renames PK to PK+TableName(excuse the german comments):
    procedure rename_primary_key
    is
        cursor c_user_cons is
            select
                c.constraint_name,
                c.constraint_type,
                c.r_constraint_name,
                rc.table_name r_table_name,
                c.table_name,
                to_char(NULL) key_columns,
                i.tablespace_name
            from user_constraints c, user_constraints rc, user_indexes i
            where c.constraint_type in ('P','R')
            and (c.r_constraint_name like 'SYS%' or c.r_constraint_name is null)
            and c.constraint_name = i.index_name (+)
            and c.r_constraint_name = rc.constraint_name (+)
            order by c.constraint_type desc, c.table_name, c.constraint_name;
        type cons_list is table of c_user_cons%rowtype;
        key_columns varchar2(1000);
        constraint_liste cons_list := cons_list(NULL);
    begin
        for rec in c_user_cons loop
        -- Liste mit vorhandenen constraints erstellen
            constraint_liste(constraint_liste.last) := rec;
            for rec_col in (
                select column_name, position
                from user_cons_columns
                where constraint_name = rec.constraint_name
                order by position
            ) loop
                if rec_col.position = 1 then
                    key_columns := rec_col.column_name;
                else
                    key_columns := key_columns||','||rec_col.column_name;
                end if;
            end loop;
            constraint_liste(constraint_liste.last).key_columns := key_columns;
            constraint_liste.extend;
        end loop;
        constraint_liste.trim;
        for i in constraint_liste.first..constraint_liste.last loop
        -- Aufgrund der Sortierung des Cursors sind Foreign Keys zuerst in der Liste und
        -- werden vor zugehörigem PK gelöscht
            if constraint_liste(i).constraint_type = 'P' then -- PK löschen und neu anlegen
                if constraint_liste(i).tablespace_name is not NULL then
                -- nur ausführen, wenn eigener Index für PK vorhanden
                    execute immediate 'alter table '||constraint_liste(i).table_name||' drop primary key';
                    execute immediate 'alter table '||constraint_liste(i).table_name||' add (constraint PK'
                        ||substr(constraint_liste(i).table_name, 1, 30)|| ' primary key ('
                        ||constraint_liste(i).key_columns||') using index tablespace '
                        ||constraint_liste(i).tablespace_name||')';
                end if;
            else -- FK löschen
                execute immediate 'alter table '||constraint_liste(i).table_name||' drop constraint '||constraint_liste(i).constraint_name;
            end if;
        end loop;
        for i in constraint_liste.first..constraint_liste.last loop
        -- FK neu anlegen
            if constraint_liste(i).constraint_type = 'R' then
                execute immediate 'alter table '||constraint_liste(i).table_name||' add (constraint '
                    ||constraint_liste(i).constraint_name||' foreign key('||constraint_liste(i).key_columns
                    ||') references '||constraint_liste(i).r_table_name||' deferrable initially deferred)';
            end if;
        end loop;
     end rename_primary_key;