Droping all user's from u database at a time

[smdakram]

!hi
I tested these script on oracle9i DATABASE on winNT Platform. it works succesfully .


set timing on
set serveroutput on

create or replace procedure all_drop is

c_n integer;
string varchar2(100);

cursor cc is select username from dba_users where username not in ('SYS','SYSTEM');
x number:=0;
begin

for i in cc loop

string:='drop user '||i.username ||' cascade';
c_n :=dbms_Sql.open_cursor;

dbms_sql.parse(c_n,string,dbms_sql.native);

dbms_sql.close_cursor(c_n);
x:=x+1;
end loop;
dbms_output.put_line('Total No of user drop from u database :: '|| x);
end all_drop ;