oracle 测试窗口批量删除

-- Created on 2017/4/25 by ADMINISTRATOR 
declare 
  -- Local variables here
  i integer;
  gids varchar2(50);
  sqlstr varchar2(200);
 
begin
  -- Test statements here
  
  
  gids:='5AF63962-BDD3-4101-9DDD-F21E9547D4C3';
    sqlstr:='delete from AA where gobjectid='''||gids||'''';
    execute immediate sqlstr;
    sqlstr:='delete from BB where gobjectid='''||gids||'''';
     execute immediate sqlstr;
     sqlstr:='delete from CC where  Gfamliyid='''||gids||'''';
      execute immediate sqlstr;
      
      sqlstr:='delete from EE where Gpeopid in(
select pp.gid from DD pp where pp.gfamliyid='''||gids||''')';
dbms_output.put_line(sqlstr);
      execute immediate sqlstr;
      
       sqlstr:='delete from FF where gobjectid='''||gids||'''';
      execute immediate sqlstr;
        sqlstr:='delete from !!where gfamliyid='''||gids||'''';
      execute immediate sqlstr;
  exception
    when others then
      dbms_output.put_line(sqlstr);

end;

---------------循环---------------------------

declare 
  
  i integer;
  gids varchar2(50);
  sqlstr varchar2(200);
  xx integer;
 
begin
  xx:=1;
while (xx<=4)
  loop
select f.gid into gids from BB f where f.shzidcard='23110219320226553X' and rownum=1;
    sqlstr:='delete from AA where gobjectid='''||gids||'''';
    execute immediate sqlstr;
    sqlstr:='delete from CC where gobjectid='''||gids||'''';
     execute immediate sqlstr;
     sqlstr:='delete from DD where  Gfamliyid='''||gids||'''';
      execute immediate sqlstr;
      
      sqlstr:='delete from EE  where Gpeopid in(
select pp.gid from FF pp where pp.gfamliyid='''||gids||''')';
dbms_output.put_line(sqlstr);
      execute immediate sqlstr;
      
       sqlstr:='delete from HH  where gobjectid='''||gids||'''';
      execute immediate sqlstr;
        sqlstr:='delete from KK where gfamliyid='''||gids||'''';
      execute immediate sqlstr;
  sqlstr:='delete from MM where gid='''||gids||'''';
   execute immediate sqlstr;
     sqlstr:='delete from NN d16 where  gfamilyid='''||gids||'''';
   execute immediate sqlstr;
   sqlstr:='delete from QQ w3 where w3.sobjectid='''||gids||'''';
    execute immediate sqlstr;
    
     sqlstr:='delete from TT w4 where w4.sobjectid='''||gids||'''';
    execute immediate sqlstr;
   
      xx:=xx+1;
       end loop ;
  exception
    when others then
      dbms_output.put_line(sqlstr);
   
      
      
end;