DB2 SQL - SQLCODE 问题

Question

当我在网络上搜索我的文本框时，如果没有结果，我想通知用户。我正在尝试使用 SQLCODE 保留字段，但它不起作用。当我运行调试器时，它总是设置为 000。我没有收到错误消息。

我做了一些研究，我认为您需要将保留字段添加到存储过程中。我做到了。我不确定我做错了什么。

存储过程：

drop   procedure BPCSO/TEST_MB                                                                      
create procedure BPCSO/TEST_MB                                                                      
(                                                                                                   
  InOut DEC(3,0),                                                                                   
  InOut DEC(3,0),                                                                                   
  In    CHAR(30),                                                                                   
  In    DEC(3,0),                                                                                   
  Out   CHAR(02)                                                                                    
)                                                                                                   
language rpgle                                                                                      
parameter style general                                                                             
not deterministic                                                                                   
READS SQL DATA                                                                                      
result sets 1                                                                                       
external name 'BPCSO/PUR027WS(PUR027)'    

模块：

**FREE                                                                                              
// RFC Main Grid                                                                                    

CTL-OPT NOMAIN OPTION (*SRCSTMT : *NODEBUGIO);                                                      

DCL-PROC PUR027 EXPORT;                                                                             
  DCL-PI PUR027 EXTPROC(*DCLCASE);                                                                  
    StartingRow PACKED(3:0);                                                                        
    NbrOfRows PACKED(3:0);                                                                          
    Search CHAR(30);                                                                                
    SQLCODE PACKED(3:0);                                                                            
    RSL CHAR(2);                                                                                    
  END-PI;                                                                                           


IF Search = '';                                                                                     

  EXEC SQL Declare RSCURSOR cursor for                                                              
  SELECT *                                                                                          
  FROM CDPL03                                                                                       
  ORDER BY CDEPT, CDESC                                                                             
  OFFSET (:StartingRow - 1) * :NbrOfRows ROWS                                                       
  FETCH NEXT :NbrOfRows ROWS ONLY;                                                                  

  EXEC SQL  Open RSCURSOR;                                                                          

  EXEC SQL SET RESULT SETS Cursor RSCURSOR;                                                         

ELSE;                                                                                               

  EXEC SQL Declare RSCURSOR2 cursor for                                                             
  SELECT *                                                                                          
  FROM CDPL03                                                                                       
  WHERE CDESC LIKE '%' concat trim(:Search) concat '%' AND                                          
        CDEPT LIKE '%' concat trim(:Search) concat '%'                                              
  ORDER BY CDESC, CDEPT                                                                             
  OFFSET (:StartingRow - 1) * :NbrOfRows ROWS                                                       
  FETCH NEXT :NbrOfRows ROWS ONLY;                                                                  

  EXEC SQL  Open RSCURSOR2;                                                                         

  EXEC SQL SET RESULT SETS Cursor RSCURSOR2;                                                        

ENDIF;                                                                                              


// Validate for SQL errors                                                                          
IF SQLCODE  = 0;                                                                                    
  RSL = '00';                                                                                       
ELSEIF SQLCODE > 0;                                                                                 
  RSL = '10';                                                                                       
ELSEIF SQLCODE < 0;                                                                                 
  RSL = '20';                                                                                       
ENDIF;                                                                                              



//EXEC SQL SELECT COUNT(*)                                                                          
//  INTO :RowCount                                                                                  
//  FROM CDPL03;                                                                                    


RETURN;                                                                                             

END-PROC PUR027;                                                                                    


// To create the service program:                                                                   
//           CRTSRVPGM SRVPGM(BPCSO/PUR027WS)                                                       
//            MODULE(BPCSO/PUR027W)                                                                 
//            SRCFILE(BPCSS/PURBNDF) SRCMBR(PUR027WB)                                               

Answer 1

在您尝试读取结果集之前，您不会得到找不到记录。在代码中设置SQLCODE 或SQLSTATE 的唯一语句是OPEN 和SET RESULT SETS。这些都不会告诉您没有读取记录。您实际上必须尝试从结果集中读取以获取该通知。如果 SQL 无法打开游标，OPEN 将失败，如果没有打开游标，SET RESULT SETS 将失败，但这些是您可能收到的唯一失败。

Answer 2

我看不出有任何理由应该根据给出的示例设置SQLCODE。即使没有返回结果，以下行也应该成功。在查看结果集之前，您不会注意到缺少结果。

EXEC SQL SET RESULT SETS Cursor RSCURSOR;
...
EXEC SQL SET RESULT SETS Cursor RSCURSOR2;

在每个 SQL 语句调用上都设置了 SQLCODE，因此即使前面的 SQL 语句失败，您也不会在这里注意到。您必须在每个 SQL 语句之后检查 SQLCODE，以了解其中是否有任何失败。

作为一些额外的改进提示，您应该使用 SQLSTATE 而不是 SQLCODE。 SQLSTATE 是所有 SQL 数据库中的最新标准，尽管 IBM i 目前没有计划实际删除它，但 SQLCODE 在所有地方都已被弃用。

此外，似乎没有任何理由将此作为外部过程而不是标准 SQL 存储过程。考虑到您拥有的所有逻辑无论如何都是在 SQL 中完成的，这似乎是一个不必要的包装。更多信息可以在here和here找到。