Oracle 建表空间

/*
*app 创建表空间，大小为50M，自动扩展10M
*pram table_num(表数量)，start_num（表空间开始编号），tbs_num(每张表表空间数)
*/
create or replace procedure ctbs(table_num in number ,start_num in number,tbs_num in number) authid current_user is
str_tbs varchar2(4000);
str_max varchar2(1000);
data_file varchar2(200);
begin
data_file := 'D:\oracle\product\10.2.0\oradata\FDB\XPP\';
<<outer>>
for k in 0..table_num-1 loop
<<inner>>
for i in start_num .. tbs_num-1 loop
str_tbs := 'create tablespace P_' || LTRIM(TO_CHAR(k*tbs_num+i, '099')) ||
' datafile ' || chr(39) ||data_file||'P_' ||
LTRIM(TO_CHAR(k*tbs_num+i, '099')) || '.dbf' || chr(39) ||
' size 600M
autoextend on next 10M maxsize unlimited logging
extent management local autoallocate
segment space management auto';
execute immediate str_tbs;
end loop inner;
end loop outer;
for k in 0..table_num-1 loop
str_max := 'create tablespace P_' || LTRIM(TO_CHAR(k, '099')) ||'max'||
' datafile ' || chr(39) ||data_file||'P_' ||
LTRIM(TO_CHAR(k, '099')) || 'max.dbf' || chr(39) ||
' size 500M
autoextend on next 10M maxsize unlimited logging
extent management local autoallocate
segment space management auto';
execute immediate str_max;
end loop;
end ctbs;
/

set serveroutput on size 1000000
begin
ctbs(1,0,100);
end;
/