创建解锁用户的procedure

--去年的时候写了一个存储过程，用来给开发自己解锁用户用

--先建一个单独的用户，然后创建解锁用户的procedure

--最后把这个procedure的权限赋给那个用户

--开发使用的时候只要自己登上解锁的用户，调用存储过程就能解锁想解锁的用户了

--存储过程如下：

create or replace procedure unlock_user(p_username varchar2)is  

  --user's status flg   

  v_exist varchar2(32);   

begin  

   

  --select the user's account_status

  select account_status   

    into v_exist   

    from dba_users s   

    where s.username =upper(p_username);    

   

  --Ensure the usesr is locked   

  if v_exist = 'LOCKED(TIMED)' then 

    --Try to unlock it   

    execute immediate 'alteruser ' || p_username || ' account unlock';   

  else  

    --Echo error msg   

    dbms_output.put_line('user ' || p_username ||' is notLOCKED(TIMED)');    

  end if;   

end unlock_user;