在程式中實現所有 SQL 語句的通用錯誤處理邏輯
一個 COBOL-DB2 程式可以包含多個 DB2 SQL 語句。為了在一個 COBOL-DB2 程式中實現所有 SQL 語句的通用錯誤處理,我們將使用 WHENEVER 語句。
WHENEVER 語句可以基於 SQLCA 的 SQLCODE 欄位中返回值將控制權傳送至錯誤處理部分或例程。例如,我們可以在 COBOL-DB2 程式中宣告 WHENEVER 語句,如下所示−
EXEC SQL WHENEVER SQLERROR GOTO ERROR-ROUTINE END-EXEC
在以上示例中,僅當 SQLCODE 的值小於零時,才會設定 SQLERROR 引數,這表明在執行查詢時發生錯誤。在這種情況下,控制權將轉讓到程式的 ERRORROUTINE 段落中。
廣告