近期在某运营商客户运维数据库时，多次需要扩展可用空间不足的表空间，而我在具体操作时，需要消耗很多无谓时间，不停的重复同样的动作，极大消减了工作效率；试想如果通过自动化脚本实现，可以明显提升工作热情，当然我这个脚本还只是雏形，请大家多指正与批评，需要不停的修正，方可满足生产环境的复杂因素。

结论：

1，还要考虑生产环境扩展表空间所用文件系统不同路径的复杂问题
2，还要考虑并发控制此自动化运维脚本的复杂问题
3，还要考虑其它一些问题，比如要过滤不需要扩展的表空间，比如：针对RAC数据库，UNDO表空间以及SYSTEM和USER以及SYSAUX表空间
4，通过dbms_job或dbms_scheduler定期调度其自动化脚本，即可定期自动化扩展空间不足的表空间

1,存储过程代码

create or replace procedure proc_autoextend_tbs

as

log_file1 utl_file.file_type;

cursor cur_tbs is

SELECT

dfs.tablespace_name,

round(Dfs.Free_Space/Ddf.Total_Space,2)*100

from

(

SELECT

tablespace_name,

SUM(bytes/1024/1024/1024) total_space

FROM

dba_data_files

GROUP BY

tablespace_name

)

ddf,

(

SELECT

tablespace_name,

SUM(bytes/1024/1024/1024) free_space

FROM

dba_free_space

GROUP BY

tablespace_name

)

dfs

WHERE

dfs.tablespace_name=ddf.tablespace_name;

v_tbs v$datafile.name%type;

v_ratio number;

v_str varchar2(10);

begin

open cur_tbs;

loop

fetch cur_tbs into v_tbs,v_ratio;

exit when cur_tbs%notfound;

if v_ratio<=20 then

v_str:=dbms_random.string('a',4);

execute immediate 'alter tablespace '||v_tbs||' add datafile '||''''||'/oracle/oradata/guowang/'||v_str||'.dbf'||''''||' size 10m autoextend off';

dbms_output.put_line(v_tbs||' '||v_ratio||' free ratio is low,please add space');

log_file1:=utl_file.fopen('DIR_TBS','test_log.txt','a');

utl_file.new_line(log_file1,1);

utl_file.put(log_file1,'tablespace '||v_tbs||' already extend space');

utl_file.fclose(log_file1);

end if;

end loop;

close cur_tbs;

end;

/

SQL> exec proc_autoextend_tbs;

SYSAUX 15 free ratio is low,please add space

USERS 16 free ratio is low,please add space

SYSTEM 1 free ratio is low,please add space

PL/SQL procedure successfully completed.

[oracle@seconary tbs_dir]$ more test_log.txt

tablespace SYSAUX already extend space

tablespace USERS already extend space

tablespace SYSTEM already extend space

个人简介