set serveroutput on
create or replace PROCEDURE p_delete_table_db(uname varchar2) authid current_user
AS
cursor c_tab is select owner,table_name from all_tables where instr(upper(uname),','||owner||',')>=1;
sqlstmt varchar2(256);
begin
for t in c_tab loop
sqlstmt := 'drop table '||t.owner||'.'||t.table_name||' cascade constraints';
execute immediate sqlstmt;
--dbms_output.put_line(sqlstmt);
end loop;
end;
/
begin
p_delete_table_db('&1');
end;
/
exit