--mkusrexp.sql

set verify off;
--set feedback off;
set serveroutput on;


DECLARE
v_sql varchar2(200);
usu varchar2(20);
base varchar2(20);
BEGIN

		select name into base from v$database;
		usu := upper('&1');
		v_sql:= 'DROP USER '||usu;
		dbms_output.put_line(v_sql||' en '||base);
		execute immediate v_sql;

END;
/

exit