create or replace procedure p_ptable is
begin
declare
str_sql varchar2(3000);
l_names province_py.pingying%type;
cursor c is select pingying from province_py order by pingying;
begin
open c;
loop
fetch c into l_names ;
exit when c%notfound;
str_sql:=' create table MOC_WWW_'||REPLACE(l_names,'NEW_','')||' as select * from new_com_www' ;
str_sql:=str_sql||' where py='''||l_names || '''';
execute immediate str_sql;
DBMS_OUTPUT.PUT_LINE(str_sql);
end loop;
close c;
end;
end;
来自 “ ITPUB博客 ” ,链接:http://blog.itpub.net/8797129/viewspace-589366/,如需转载,请注明出处,否则将追究法律责任。
转载于:http://blog.itpub.net/8797129/viewspace-589366/