COBOL-DB2 程序中 SQLCA 中 SQLCODE 的用途和用途是什么

SQLCA 的 SQLCODE 字段用于获取最后一次执行的 SQL 查询从 DB2 到 COBOL 程序的返回码。以下是 SQLCODE 字段可以采用的返回码范围及其重要性。

SQLCODE = 0 → 查询成功执行，没有任何问题。

SQLCODE > 0 → 执行查询时发出警告。

SQLCODE < 0 → 执行查询时发生错误。

下面是演示 SQLCODE 用法的示例段落。

A010-CHECK-ORDER.
EXEC SQL
   SELECT ORDER_DATE
      INTO :ORDER-DATE,
      FROM ORDERS
      WHERE ORDER_ID = :ORDER-ID
END-EXEC
   EVALUATE SQLCODE
      WHEN 0
         DISPLAY ‘ROW FETCHED SUCCESSFULLY’
      WHEN 100
         DISPLAY ‘DATA NOT FOUND’
      WHEN OTHER
         DISPLAY ‘ERROR WHILE FETCHING THE ROW’ SQLCODE
END-EVALUATE