create procedure removet (DName VARCHAR(128))
  begin
declare DatabaseName varchar (128);
declare TableName varchar (128);
declare sql_stmt varchar (100);
declare cname cursor for
select t.DatabaseName,
       t.TableName
   	
  from	DBC.Tables t 
 where	DatabaseName like '%' || :DName || '%' 
   and  TableName like any ('%_BKP%','%_TMP%','%_BACKUP%')
   and  CreateTimeStamp < (current_date - interval '1' month);
open cname;
fetch cname into DatabaseName, Tablename;
set sql_stmt = 'drop table' || :DatabaseName || '.' || :TableName;
prepare stmt1 from sql_stmt;
execute stmt1;
deallocate prepare stmt1;
close cname;
end;

replace procedure ABD.drop_tt (in DName varchar(128), out Ret_Code integer, out taberror char)
  begin
    declare DatabaseName varchar (128);
    declare TableName varchar (128);
    declare sql_stmt varchar (100);
   
       
       declare exit handler 
       for sqlexception  
       begin
       set Ret_Code = SQLCODE;
       set taberror = Tablename;
       end;

for cname as TabTblCursor cursor for 
  select *
    from ABD.select_tt
    where DatabaseName like '%' || :DName || '%'
 do
set sql_stmt = 'drop table ' || cname.DatabaseName || '.' || cname.TableName;
call DBC.SysExecSQL (:sql_stmt);
end for;
set Ret_Code=0;
  set taberror = TableName;
end;