테이블생성 프로시저

create or replace procedure t_owner.p_create_table is

v_sql_cd number(10);

v_sql_msg varchar2(1000);

v_stats_date date;

v_sql varchar2(4000);

v_ymd_1_date number(10);

begin

 select to_char((trunc(sysdate)-1),'yyyymmdd')

into v_ymd_1_date

from dual;

v_stat_date := trunc(sysdate -1);

begin

v_cdr_sql := 'create table t_owner.tb_test_01'|| v_ymd_1_date;

v_cdr_sql := 'tablespace ts_test as ';

v_cdr_sql := 'select * from t_owner.tb_test_01';

execute immediate v_sql;

exception when others then rollback;

v_sql_cd := sql_code;

v_sql_msg := sqlerrm;

end;

insert into t_owner.tb_p_log(co1,co2,co3)

values (v_stats_date,'tb_test_01_'||v_tm_1_date,sysdate);

commit;

end p_create_table;

/