Stored procedures DB2创建存储过程错误..有人能提供见解吗

错误如下：

H1WICTDD.WICQ083A:44：非法符号。一些可能是 法定日期为：+-TRIM XMLSERIALIZE CAST XMLCAST CAST当前日期。 SQLCODE=-104，SQLSTATE=42601，DRIVER=3.62.80

SQL I在尝试部署之前未收到语法警告：

CREATE PROCEDURE H1WICTDD.WICQ083a(IN parmCollection VARCHAR(8), IN parmAgencyID CHAR(3), IN parmSQLCODE INT)
    VERSION V1
    ISOLATION LEVEL CS
    RESULT SETS 1
    LANGUAGE SQL
    QUALIFIER H1xxx

P1:BEGIN

DECLARE strAgencyID VARCHAR(3);
DECLARE dtDATE DATE;
DECLARE strServer VARCHAR(10);
DECLARE strUser VARCHAR(8);
DECLARE strLowAgencyID CHAR(3);
DECLARE c_result CURSOR WITH RETURN FOR RES_SET;


SET dtDate=(CURRENT DATE - 13 MONTHS);
SET strServer=CURRENT SERVER;
SET strUser=USER;

--SELECT  CURRENT SERVER INTO strServer FROM SYSIBM.SYSDUMMY1;
--SELECT  CURRENT SESSION_USER INTO strUser FROM SYSIBM.SYSDUMMY1; 


IF strServer = 'HWDCH1xxx' THEN                                 
    SET strLowAgencyID ='100'; 
ELSE 
    SET strLowAgencyID ='101';
END IF;                           


SELECT GAGENCYID INTO strAgencyID                                      
FROM VINFWICIDUSER                                     
WHERE GUSERID = strUser
WITH UR;                                              

--If strAgencyID of the USER equals the passed in parmAgency ID
--or strAgencyID has astriks (*) then the user has access to statewide
--Reports.  So test taht first.  If passes that test, then see if they 
--want state or agency only

IF strAgencyID=parmAgencyID OR strAgencyID Like '*%' THEN
    IF parmAgencyID=’ALL’ THEN
--STATEWIDE
    SELECT                                                   
         A.GAGENCYID,                                           
         B.GAGENCYNAME,                                         
         A.GPARTICIPMONTH,                                      
         C.GCASELOADCNT,                                        
         A.GPARTICIPATION,                                      
         (C.GCASELOADCNT - A.GPARTICIPATION) AS GCLESSP,          
         COALESCE(SUM(D.GCNTTOTAL),0) AS GUNISSUEDCNT           
       FROM                                                     
         VINFPARTICPSUMM A                                      
         INNER JOIN VINFAGENCY B                                
           ON   B.GAGENCYID = A.GAGENCYID                   
         INNER JOIN VINFCASELOAD C                              
           ON   C.GAGENCYID = A.GAGENCYID                   
         LEFT OUTER JOIN VINFUNISSUEDRX D                       
           ON   D.GAGENCYID = A.GAGENCYID                 
           AND CONCAT(SUBSTR(CHAR(A.GPARTICIPMONTH,ISO ),1,4 ),       
              SUBSTR(CHAR(A.GPARTICIPMONTH,ISO ),6,2 ) )      
             = D.GRXMONTHYEAR                                 
       WHERE                                                   
         A.GPARTICIPMONTH >= dtDATE                     
         AND  A.GAGENCYID BETWEEN strLowAgencyID AND '399'  
         AND C.GEFFECTIVEDATE =                                
           (SELECT MAX(E.GEFFECTIVEDATE)                       
           FROM VINFCASELOAD E                                 
           WHERE E.GAGENCYID       = A.GAGENCYID               
             AND E.GEFFECTIVEDATE <= A.GPARTICIPMONTH)         
       GROUP BY   A.GAGENCYID,                                 
         B.GAGENCYNAME,                                        
         A.GPARTICIPMONTH,                                     
         A.GPARTICIPATION,                                     
         C.GCASELOADCNT
         WITH UR;                                                                        

      ELSE
--AGENCY
    SELECT                                                  
         A.GAGENCYID,                                          
         B.GAGENCYNAME,                                        
         A.GPARTICIPMONTH,                                     
         C.GCASELOADCNT,                                       
         A.GPARTICIPATION,                                     
         (C.GCASELOADCNT - A.GPARTICIPATION) AS GCLESSP,         
         COALESCE(SUM(D.GCNTTOTAL),0) AS GUNISSUEDCNT          
       FROM                                                    
         VINFPARTICPSUMM A                                     
         INNER JOIN VINFAGENCY B                               
           ON  B.GAGENCYID = A.GAGENCYID                   
         INNER JOIN VINFCASELOAD C                             
           ON  C.GAGENCYID = A.GAGENCYID                   
         LEFT OUTER JOIN VINFUNISSUEDRX D                      
           ON  D.GAGENCYID = A.GAGENCYID                   
           AND CONCAT(SUBSTR(CHAR(A.GPARTICIPMONTH,ISO),1,4),         
              SUBSTR(CHAR(A.GPARTICIPMONTH,ISO),6,2))          
             = D.GRXMONTHYEAR                                  
       WHERE                                                    
         A.GPARTICIPMONTH >= dtDATE                       
         AND  A.GAGENCYID = parmAgencyID                      
         AND C.GEFFECTIVEDATE =                                 
           (SELECT MAX(E.GEFFECTIVEDATE)                        
           FROM VINFCASELOAD E                                  
           WHERE E.GAGENCYID = A.GAGENCYID                      
             AND E.GEFFECTIVEDATE <= A.GPARTICIPMONTH)          
       GROUP BY   A.GAGENCYID,                                  
         B.GAGENCYNAME,                                         
         A.GPARTICIPMONTH,                                      
         A.GPARTICIPATION,                                      
         C.GCASELOADCNT                                         
 WITH UR;                                   

    END IF;

END IF;
OPEN c_result;
--=============================================================
--Handle Errors and Log them
--==============================================================

        --EXEC Stored Proc WICQ00R (STORPROC_NAME, RETURN_CODE, MISC, strUser, CURRENT DATETIME)

END P1

---

错误消息指示第44行，即

IF parmAgencyID=’ALL’ THEN

---

我猜smartquotes不是故意的。

谢谢大家。在DB2中，我似乎不能让条件逻辑指定要使用的SELECT语句。我必须在每个SELECT语句之前声明一个游标，然后将条件逻辑放在底部并打开相应的游标。我将以下代码移到了过程的底部：

SET DTDATE=(CURRENT DATE - 13 MONTHS);
SET STRSERVER=CURRENT SERVER;
SET STRUSER=USER;

SELECT GAGENCYID INTO STRAGENCYID FROM VINFWICIDUSER                                     
WHERE GUSERID = STRUSER;

IF STRSERVER = 'HWDCH1TD' THEN                                 
    SET STRLOWAGENCYID ='100'; 
ELSE 
    SET STRLOWAGENCYID ='101';
END IF;  

IF STRAGENCYID = PARMAGENCYID OR STRAGENCYID LIKE '*%' THEN 
    IF PARMAGENCYID = 'ALL' THEN
        OPEN C_STATE;  --The DECLARED CURSOR in first SELECT
    ELSE
        OPEN C_AGENCY; --The DECLARED CURSOR in the second SELECT
    END IF;
END IF;
--=============================================================
--Handle Errors and Log them
--==============================================================
        --EXEC Stored Proc WICQ00R (STORPROC_NAME, RETURN_CODE, MISC, strUser, CURRENT DATETIME) 
END P1

我们有一个报告系统，有问题的光标，所以不知道我会去哪里

---

感谢您的回复。

在复合语句中，您只能选择某个内容或声明光标。似乎就是这样。感谢您显示错误。