An oracle stored procedure to truncate table with constraints

create or replace PROCEDURE sp_truncate_table (target_table_name VARCHAR2)
IS
sql_string VARCHAR2(5000);
CURSOR str_cursor IS
select
‘alter table ‘ || child_tname || ‘ drop constraint ‘ || child_cons_name || ‘;’ as sql_str
from
( select a.table_name child_tname, a.constraint_name child_cons_name,
b.r_constraint_name parent_cons_name,
max(decode(position, 1, ‘”‘||
substr(column_name,1,30)||'”‘,NULL)) ||
max(decode(position, 2,’, ‘||'”‘||
substr(column_name,1,30)||'”‘,NULL)) ||
max(decode(position, 3,’, ‘||'”‘||
substr(column_name,1,30)||'”‘,NULL)) ||
max(decode(position, 4,’, ‘||'”‘||
substr(column_name,1,30)||'”‘,NULL)) ||
max(decode(position, 5,’, ‘||'”‘||
substr(column_name,1,30)||'”‘,NULL)) ||
max(decode(position, 6,’, ‘||'”‘||
substr(column_name,1,30)||'”‘,NULL)) ||
max(decode(position, 7,’, ‘||'”‘||
substr(column_name,1,30)||'”‘,NULL)) ||
max(decode(position, 8,’, ‘||'”‘||
substr(column_name,1,30)||'”‘,NULL)) ||
max(decode(position, 9,’, ‘||'”‘||
substr(column_name,1,30)||'”‘,NULL)) ||
max(decode(position,10,’, ‘||'”‘||
substr(column_name,1,30)||'”‘,NULL)) ||
max(decode(position,11,’, ‘||'”‘||
substr(column_name,1,30)||'”‘,NULL)) ||
max(decode(position,12,’, ‘||'”‘||
substr(column_name,1,30)||'”‘,NULL)) ||
max(decode(position,13,’, ‘||'”‘||
substr(column_name,1,30)||'”‘,NULL)) ||
max(decode(position,14,’, ‘||'”‘||
substr(column_name,1,30)||'”‘,NULL)) ||
max(decode(position,15,’, ‘||'”‘||
substr(column_name,1,30)||'”‘,NULL)) ||
max(decode(position,16,’, ‘||'”‘||
substr(column_name,1,30)||'”‘,NULL))
child_columns
from user_cons_columns a, user_constraints b
where a.constraint_name = b.constraint_name
and b.constraint_type = ‘R’
group by a.table_name, a.constraint_name, b.r_constraint_name
) child,
( select a.constraint_name parent_cons_name, a.table_name parent_tname,
max(decode(position, 1, ‘”‘||
substr(column_name,1,30)||'”‘,NULL)) ||
max(decode(position, 2,’, ‘||'”‘||
substr(column_name,1,30)||'”‘,NULL)) ||
max(decode(position, 3,’, ‘||'”‘||
substr(column_name,1,30)||'”‘,NULL)) ||
max(decode(position, 4,’, ‘||'”‘||
substr(column_name,1,30)||'”‘,NULL)) ||
max(decode(position, 5,’, ‘||'”‘||
substr(column_name,1,30)||'”‘,NULL)) ||
max(decode(position, 6,’, ‘||'”‘||
substr(column_name,1,30)||'”‘,NULL)) ||
max(decode(position, 7,’, ‘||'”‘||
substr(column_name,1,30)||'”‘,NULL)) ||
max(decode(position, 8,’, ‘||'”‘||
substr(column_name,1,30)||'”‘,NULL)) ||
max(decode(position, 9,’, ‘||'”‘||
substr(column_name,1,30)||'”‘,NULL)) ||
max(decode(position,10,’, ‘||'”‘||
substr(column_name,1,30)||'”‘,NULL)) ||
max(decode(position,11,’, ‘||'”‘||
substr(column_name,1,30)||'”‘,NULL)) ||
max(decode(position,12,’, ‘||'”‘||
substr(column_name,1,30)||'”‘,NULL)) ||
max(decode(position,13,’, ‘||'”‘||
substr(column_name,1,30)||'”‘,NULL)) ||
max(decode(position,14,’, ‘||'”‘||
substr(column_name,1,30)||'”‘,NULL)) ||
max(decode(position,15,’, ‘||'”‘||
substr(column_name,1,30)||'”‘,NULL)) ||
max(decode(position,16,’, ‘||'”‘||
substr(column_name,1,30)||'”‘,NULL))
parent_columns
from user_cons_columns a, user_constraints b
where a.constraint_name = b.constraint_name
and b.constraint_type in ( ‘P’, ‘U’ )
group by a.table_name, a.constraint_name ) parent
where child.parent_cons_name = parent.parent_cons_name
and parent.parent_tname = upper(target_table_name)

union all

select ‘truncate table ‘ || target_table_name || ‘;’ as sql_str from dual

union all

select
‘alter table ‘ || child_tname || ‘ add constraint ‘ || child_cons_name ||
‘ foreign key ( ‘ || child_columns || ‘ ) ‘ || ‘ references ‘ || parent_tname || ‘ ( ‘ || parent_columns || ‘ );’ as sql_str
from
( select a.table_name child_tname, a.constraint_name child_cons_name,
b.r_constraint_name parent_cons_name,
max(decode(position, 1, ‘”‘||
substr(column_name,1,30)||'”‘,NULL)) ||
max(decode(position, 2,’, ‘||'”‘||
substr(column_name,1,30)||'”‘,NULL)) ||
max(decode(position, 3,’, ‘||'”‘||
substr(column_name,1,30)||'”‘,NULL)) ||
max(decode(position, 4,’, ‘||'”‘||
substr(column_name,1,30)||'”‘,NULL)) ||
max(decode(position, 5,’, ‘||'”‘||
substr(column_name,1,30)||'”‘,NULL)) ||
max(decode(position, 6,’, ‘||'”‘||
substr(column_name,1,30)||'”‘,NULL)) ||
max(decode(position, 7,’, ‘||'”‘||
substr(column_name,1,30)||'”‘,NULL)) ||
max(decode(position, 8,’, ‘||'”‘||
substr(column_name,1,30)||'”‘,NULL)) ||
max(decode(position, 9,’, ‘||'”‘||
substr(column_name,1,30)||'”‘,NULL)) ||
max(decode(position,10,’, ‘||'”‘||
substr(column_name,1,30)||'”‘,NULL)) ||
max(decode(position,11,’, ‘||'”‘||
substr(column_name,1,30)||'”‘,NULL)) ||
max(decode(position,12,’, ‘||'”‘||
substr(column_name,1,30)||'”‘,NULL)) ||
max(decode(position,13,’, ‘||'”‘||
substr(column_name,1,30)||'”‘,NULL)) ||
max(decode(position,14,’, ‘||'”‘||
substr(column_name,1,30)||'”‘,NULL)) ||
max(decode(position,15,’, ‘||'”‘||
substr(column_name,1,30)||'”‘,NULL)) ||
max(decode(position,16,’, ‘||'”‘||
substr(column_name,1,30)||'”‘,NULL))
child_columns
from user_cons_columns a, user_constraints b
where a.constraint_name = b.constraint_name
and b.constraint_type = ‘R’
group by a.table_name, a.constraint_name, b.r_constraint_name
) child,
( select a.constraint_name parent_cons_name, a.table_name parent_tname,
max(decode(position, 1, ‘”‘||
substr(column_name,1,30)||'”‘,NULL)) ||
max(decode(position, 2,’, ‘||'”‘||
substr(column_name,1,30)||'”‘,NULL)) ||
max(decode(position, 3,’, ‘||'”‘||
substr(column_name,1,30)||'”‘,NULL)) ||
max(decode(position, 4,’, ‘||'”‘||
substr(column_name,1,30)||'”‘,NULL)) ||
max(decode(position, 5,’, ‘||'”‘||
substr(column_name,1,30)||'”‘,NULL)) ||
max(decode(position, 6,’, ‘||'”‘||
substr(column_name,1,30)||'”‘,NULL)) ||
max(decode(position, 7,’, ‘||'”‘||
substr(column_name,1,30)||'”‘,NULL)) ||
max(decode(position, 8,’, ‘||'”‘||
substr(column_name,1,30)||'”‘,NULL)) ||
max(decode(position, 9,’, ‘||'”‘||
substr(column_name,1,30)||'”‘,NULL)) ||
max(decode(position,10,’, ‘||'”‘||
substr(column_name,1,30)||'”‘,NULL)) ||
max(decode(position,11,’, ‘||'”‘||
substr(column_name,1,30)||'”‘,NULL)) ||
max(decode(position,12,’, ‘||'”‘||
substr(column_name,1,30)||'”‘,NULL)) ||
max(decode(position,13,’, ‘||'”‘||
substr(column_name,1,30)||'”‘,NULL)) ||
max(decode(position,14,’, ‘||'”‘||
substr(column_name,1,30)||'”‘,NULL)) ||
max(decode(position,15,’, ‘||'”‘||
substr(column_name,1,30)||'”‘,NULL)) ||
max(decode(position,16,’, ‘||'”‘||
substr(column_name,1,30)||'”‘,NULL))
parent_columns
from user_cons_columns a, user_constraints b
where a.constraint_name = b.constraint_name
and b.constraint_type in ( ‘P’, ‘U’ )
group by a.table_name, a.constraint_name ) parent
where child.parent_cons_name = parent.parent_cons_name
and parent.parent_tname = upper(target_table_name)
;
BEGIN

FOR str IN str_cursor LOOP
dbms_output.put_line(str.sql_str);
–EXECUTE IMMEDIATE str.sql_str;
END LOOP;

END;

Advertisements

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s