oracle 如何添加数据文件,可不可以自动添加数据文件？

create or replace procedure auto_tbsp

as

vsql varchar2(1000);  --存储sql语句

cursor c1 is select * from (select total.tablespace_name,round(total.MB, 2) as Total_MB,round(total.MB - free.MB, 2) as Used_MB,

round((1 - free.MB / total.MB) * 100, 2) as Used_Pct

from (select tablespace_name, sum(bytes) / 1024 / 1024 as MB

from dba_free_space group by tablespace_name) free,

(select tablespace_name, sum(bytes) / 1024 / 1024 as MB

from dba_data_files group by tablespace_name) total where free.tablespace_name = total.tablespace_name and free.tablespace_name not in

('UNDOTBS1','SYSAUX','SYSTEM'));

use_tbsp use_tbsp_view%rowtype;

begin

open c1;

loop

fetch c1 into use_tbsp;

if c1%notfound then

exit;

else if  use_tbsp.used_pct < 80 then

dbms_output.put_line(use_tbsp.tablespace_name||' space is enough,used_percent is '||use_tbsp.used_pct||'%;');

else if use_tbsp.used_pct < 90 and use_tbsp.used_pct >= 80 then

dbms_output.put_line(use_tbsp.tablespace_name||' space is not enough,used_percent is '||use_tbsp.used_pct||'%;');

else if use_tbsp.used_pct >= 90 then

vsql := 'alter tablespace '||use_tbsp.tablespace_name|| ' add datafile ''/u01/app/oracle/oradata/oceandb/'||use_tbsp.tablespace_name||'_'||to_char(sysdate,'yyyymmdd')||'.dbf'' size 10M';

--execute immediate vsql;

dbms_output.put_line(use_tbsp.tablespace_name||' space need to add datafile,used_percent is '||use_tbsp.used_pct||'%,datafile added;');

dbms_output.put_line(vsql);

end if;

end if;

end if;

end if;

end loop;

close c1;

end;