db2删除已经存储的表存储过程

drop procedure DROP_IF_EXISTS;
create procedure DROP_IF_EXISTS(in tabschame varchar(100),in tabname varchar(100))
--存储过程详细说明--
--存储过程名： DROP_IF_EXISTS--
--存储过程创建日期：2012/8/15--
--存储过程创建人：顾原力--
--目的：查询DB2表是否存在，如果存在就删除--
--输入参数：tabschame tabname--
--输出参数:--
--返回值：--
begin
--定义变量--
declare spname varchar(20) default 'DROP_IF_EXISTS';--定义存储过程的名称--
declare v_i integer DEFAULT 0;--定义判断变量--
declare t_sql varchar(1000);--存放拼写删除SQL--
declare v_tabname varchar(100); --存放完整表名--
declare tname varchar(100); --存放表名--
DECLARE SQLCODE integer DEFAULT 0;--编码代码初始值为0--
declare returncode integer;--存储发生错误的错误号--
declare returnmsg varchar(500);--存储发生错误时的错误信息--

--声明异常--
declare exit handler for not found--sqlcode值为100的异常,这个异常通常在SELECT没有返回行的时候出现--
begin
set returncode=sqlcode;--把错误号赋给returncode--
insert into LOADTMSG values(returncode);--记录错误日志插入表中--
commit;
end;

declare exit handler for sqlwarning--标识导致警告异常或者导致+100以外的SQLCODE正值的异常--
begin
set returncode=sqlcode;
insert into LOADTMSG values(returncode);
commit;
end;

declare exit handler for sqlexception--标识导致SQLCODE值为负的异常--
begin
set returncode=sqlcode;
insert into LOADTMSG values(returncode);
commit;
end;

set v_tabname = tabschame||'.'||tabname;
set tname = tabname;

--判断数据库中有无此表，如果有此表就删除--
select count(*) into v_i from syscat.tables where TYPE='T' and TABNAME=upper(tname);

if v_i = 1 then
set t_sql='DROP TABLE '||v_tabname;
execute immediate t_sql;
commit;
end if;
commit;
end;

call DROP_IF_EXISTS('DB2inst1','LOADT3');--调用存储过程--

来自 “ ITPUB博客 ” ，链接：http://blog.itpub.net/7490392/viewspace-1059427/，如需转载，请注明出处，否则将追究法律责任。