begin

declare sql_stmt varchar(4000) default '';
declare sqlcode integer default 0;
declare cr_sqlcode integer default 0;
declare exec_sqlcode integer default 0;

declare cr_seq cursor with hold for

select 'drop view '||trim(viewschema)||'.'||trim(viewname) from syscat.views where viewschema = 'APPSCHEMA '
union all
select 'drop index '||trim(indschema)||'.'||trim(indname) from syscat.indexes where indschema = 'APPSCHEMA '
union all
select 'drop table '||trim(tabschema)||'.'||trim(tabname) from syscat.tables where tabschema = 'APPSCHEMA '
union all
select 'drop sequence '||trim(seqschema)||'.'||trim(seqname) from syscat.sequences where seqschema = 'APPSCHEMA '
union all
select 'drop package '||trim(creator)||'.'||trim(name) from SYSIBM.SYSPLAN where CREATOR='APPSCHEMA ';

--в случае sqlexception продолжаем работу
declare continue handler for sqlexception
begin
set exec_sqlcode = sqlcode;
end;

open cr_seq;
while cr_sqlcode != 100 do
fetch cr_seq into sql_stmt;
set cr_sqlcode = sqlcode;
if cr_sqlcode != 100 then
--последовательно выполняем каждый запрос, полученный из курсора
execute immediate sql_stmt;
set exec_sqlcode = sqlcode;
end if;
end while;
close cr_seq;

end
@