大家看看这个简单的存储过程有什么问题？

create  or  replace  procedure  create_snapshot
as 
str varchar2(50);   
begin
str:='drop  database  link  main_orcl';    
execute immediate str;
str:='create  database  link  main_orcl    
connect  to  evarrug  identified  by  evarrug    
using  ''evarrug''';    
execute immediate str;
str:='drop  snapshot  th014_sf';    
execute immediate str;
str:='create  snapshot  th014_sf;    
as    
select  *  from  th014@main_orcl';    
execute immediate str;
str:='drop  snapshot  th015_sf';    
execute immediate str;
str:='create  snapshot  th015_sf;    
as    
select  *  from  th015@main_orcl';    
execute immediate str;
str:='drop  snapshot  th016_sf';    
execute immediate str;
str:='create  snapshot  th016_sf'; 
as    
select  *  from  th016@main_orcl;  
   
execute immediate str;  
end  create_snapshot;