Oracle 批量解锁用户

create or replace procedure unlock_username_procedure is
  alter_user_sql varchar2(1000);
begin
  for locked_usernames in (select t.username from dba_users t where t.created > to_date('2013-04-10', 'yyyy-MM-dd') and t.lock_date is not null)
    loop
      alter_user_sql := 'alter user ' || locked_usernames.username || ' account unlock';
      dbms_output.put_line(alter_user_sql);
      execute immediate alter_user_sql;
    end loop;
end;
/