Oracle删除当前用户下所有表数据

declare
 cursor cur is select table_name from user_tables;
 currow cur%rowtype;
 str varchar(2000);
 
 begin
   for currow in cur loop
     str:='truncate table '||currow.table_name;
     execute immediate str;
     dbms_output.put_line(str);
     end loop;
     end;