whenever sqlerror exit failure

set verify off feedback off

prompt WARNING: this scripts drops a user from the database

accept user char prompt 'Enter username to drop: '

dbms_aqadm.stop_queue('BOOKS');

dbms_aqadm.drop_queue('BOOKS');

dbms_aqadm.drop_queue_table('BOOK_QUEUE_TABLE');

exception when others then

if sqlcode <> -24010 then

raise;

end if;

end;

for r in

( select username

from dba_users

where username in (upper('&user'))

) loop

execute immediate 'drop user ' || r.username || ' cascade';

end loop;

end;

prompt

prompt User &user has been dropped

prompt

quit