ТЕМА:

create or replace procedure truncate_table (p_table_name varchar2) as
begin
for i in (
select c2.table_name, c2.constraint_name
from USER_CONSTRAINTS c
join USER_CONSTRAINTS c2
on c.constraint_name = c2.r_constraint_name
where 1=1
and c.table_name = p_table_name
) loop
execute immediate 'alter table '||i.table_name||' disable constraint '||i.constraint_name;
end loop;
execute immediate 'truncate table '||p_table_name;
for i in (
select c2.table_name, c2.constraint_name
from USER_CONSTRAINTS c
join USER_CONSTRAINTS c2
on c.constraint_name = c2.r_constraint_name
where 1=1
and c.table_name = p_table_name
) loop
truncate_table (p_table_name => i.table_name);
end loop;
for i in (
select c2.table_name, c2.constraint_name
from USER_CONSTRAINTS c
join USER_CONSTRAINTS c2
on c.constraint_name = c2.r_constraint_name
where 1=1
and c.table_name = p_table_name
) loop
execute immediate 'alter table '||i.table_name||' enable constraint '||i.constraint_name;
end loop;
end;