oracle清空当前用户所有表数据存储过程

declare
  v_sql varchar2(2000);
  CURSOR cur is
    select table_name from user_tables order by table_name;
begin
  for rows in cur loop
    v_sql := 'TRUNCATE TABLE ' || rows.table_name;
    dbms_output.put_line(v_sql);
    execute immediate v_sql;
  end loop;
end;
/