17,089
社区成员
发帖
与我相关
我的任务
分享
create or replace procedure proc_createtb_job is
str1 varchar2(200);
str2 varchar2(200);
yymmdd varchar2(200);
num number;
v_tablename varchar2(200);
begin
yymmdd:=to_char(sysdate,'yyyymmdd');
for cur1 in (select table_name||'_'||yymmdd tabname,wm_concat(field||' '||fieldtype)col,min(field)ind from zzw_test100 a
where not exists(select 1 from all_tables where table_name=upper(a.table_name)||'_'||yymmdd)
group by table_name) loop
str1:= 'create table '||cur1.tabname||'('||cur1.col||')';
execute immediate str1;
execute immediate 'create index '||cur1.tabname||'_ind on '||cur1.tabname||'('||cur1.ind||')';
end loop;
end;