orcal 自动建表+id自增

/*首先要保证orcal 使用用户创建序列和触发器的权限，要在sysdba执行*/

grant create any sequence to user_name;
grant select any sequence to user_name;
grant create any trigger to user_name

create or replace procedure test_trigger 
as
v_name varchar2(100);
v_Sql varchar2(1000);
begin
select to_char(sysdate,'yyyymmdd') into v_name from dual;
v_Sql:='create table tstationdischarge_his'||v_name||'as select * from tstationdischarge_his201607 where 1=2';
execute immediate v_sql;
v_Sql:='create sequence seq_'||v_name||' start with 1';
execute immediate v_sql;
v_sql:='create or replace trigger trig_'||v_name||' 
before 
insert on  tstationdischarge_his'||v_name||' for each row 
begin 
select seq_'||v_name||'.nextval into :new.id from dual; 
end;';
execute immediate v_sql;
/*exception
when others then
null;*/
end;

declare  test_trigger number;  
begin  
sys.dbms_job.submit(test_trigger ,'test_trigger ;',sysdate,'TRUNC(LAST_DAY(SYSDATE))+1+1/24'); 
commit; 
end;