怎样在Oracle里用存储过程定期分割表

　　create or replace procedure log_history

　　is

　　query_str varchar2(32767);

　　year_month varchar2(8);

　　times number;

　　begin

　　select to_char(sysdate-15,'YYYYMMDD') into year_month from dual;

　　times:=0;

　　query_str :='create table log_new pctfree 10 pctused 80

　　as select * from log where 1=2';

　　execute immediate query_str;

　　query_str :='alter table log_new add constraints log_'

　　||year_month||'_pk

　　primary key (id) tablespace indx nologging pctfree 10';

　　execute immediate query_str; 

　　query_str :='alter table log_his modify logtime default sysdate';

　　execute immediate query_str; 

　　query_str :='create index log_'||year_month||'_logtime on log(logtime)

　　tablespace indx nologging pctfree 10';

　　execute immediate query_str; 

　　rename_table('log','log'||year_month,times);

　　query_str :='alter table log_new rename to log';

　　execute immediate query_str;

　　end;

　　/

select object_id,session_id,locked_mode from v$locked_object;

select t2.username,t2.sid,t2.serial#,t2.logon_time 

from v$locked_object t1,v$session t2 

where t1.session_id=t2.sid order by t2.logon_time;

alter system kill session 'sid,serial#';