DB2存储过程
火星的你 2009-05-12 10:42:37 请高手帮我看一下哪里出问题了:
CREATE PROCEDURE Qmap_DEVGRPSelect ( OUT BSUCCESS INTEGER )
------------------------------------------------------------------------
-- SQL 存储过程
-- BSUCCESS
------------------------------------------------------------------------
LANGUAGE SQL
P1: BEGIN
-- 声明变量
DECLARE RESULT1 INTEGER DEFAULT 0;
DECLARE cursor1 CURSOR FOR S1;
DECLARE STR VARCHAR(50) DEFAULT '';
SET BSUCCESS=0;
SET RESULT1 =(SELECT COUNT(*) FROM DEV_GRP WHERE TYPE = 0);
IF( RESULT1 = 0)
THEN
SET STR='SELECT '' AS CODE, '' AS NAME, '' AS TAB_NAME FROM SYSIBM.SYSDUMMY1';
ELSE
SET STR='SELECT CODE AS CODE, NAME AS NAME, DEV_TBL AS TAB_NAME FROM DEV_GRP WHERE TYPE = 0 ORDER BY NAME ';
END if;
PREPARE S1 FROM STR;
OPEN cursor1;
END P1