DB2最基本的存储过程

CREATE PROCEDURE PAMS.ORGMERCANT_TEST()

LANGUAGE SQL
------------------------------
--NAME pams.organ
--description 是否营销部门认定
--author: levma
--date 2007-6-18
-----------------------------
BEGIN
DECLARE SQLCODE INTEGER DEFAULT 0;
DECLARE SQL_CODE INTEGER DEFAULT 0;
DECLARE sqlMsg VARCHAR(255) ;
--声明异常处理
DECLARE CONTINUE HANDLER FOR NOT FOUND ,SQLEXCEPTION
BEGIN
SET SQL_CODE=SQLCODE;
END;
=======================SQL语句开始=====================================
MERGE INTO PAMS.ORG_MERCANT AS A
USING ( select instno,mercant,contain from pams.organ where insttype='1')AS B
ON A.INSTNO = B.INSTNO
WHEN NOT MATCHED THEN
INSERT (A.INSTNO ,A.MERCANT,A.CONTAIN ) VALUES(B.INSTNO,B.MERCANT,B.CONTAIN);
========================SQL语句结束====================================

IF sql_code<> 0 AND sql_code <> 100 THEN
SET sqlMsg = '失败';
GOTO ERROR_RETURN;
END IF;
COMMIT;

set sqlMsg = '成功！';
set sql_code = 0;
return 1;

ERROR_RETURN:
ROLLBACK;
return -1;

END ;