create or replace procedure pro_droptable is
cursor cur is select table_name from user_tables;
drop_sql varchar2(1000);
begin
  for tbname in cur loop
    begin
      drop_sql:=‘drop table ‘||tbname.table_name;--将drop修改为truncate即可删除所有表的数据
      execute immediate drop_sql;
    end;
  end loop;
end pro_droptable;