Deshabilitar constraints de referencia de un esquema

spool &1/DConstraints.txt
set serveroutput on;
DECLARE
 CURSOR fke_cur IS
       SELECT table_name, constraint_name
         FROM user_constraints
         where constraint_type=’R’;

   exstr          varchar2 (4000);
BEGIN
 FOR fke_rec IN fke_cur LOOP
    exstr       :=    ‘ALTER TABLE ‘
                   || fke_rec.table_name
                   || ‘ DISABLE CONSTRAINT «‘
                   || fke_rec.constraint_name||'»‘;

    BEGIN
       EXECUTE IMMEDIATE exstr;
    EXCEPTION
       WHEN OTHERS THEN
            dbms_output.put_line(SQLERRM ||fke_rec.table_name||’ ‘||fke_rec.constraint_name);
    END;
 END LOOP;                                                                                                      
END;
/
spool off