如何使用 COBOL 段落验证 DB2 列数据中的 NULL 值？

为了实现这一点，我们将在 ORDERS 表的 INVOICE_ID 上使用 SELECT 查询后的 NULL 指示符。如果 NULL 指示符的值为 -1，则可以得出结论，即 INVOIVE_ID 具有 null 值。

以下是对此 COBOL 段落−

A010-CHECK-ORDER.
   EXEC SQL
   SELECT INVOICE_ID INTO :INVOICE_ID_DATA :INVOICE_ID_N
   FROM ORDERS
      WHERE ORDER_ID = ‘678542112’
   END-EXEC
   IF INVOICE-ID-N = -1
   MOVE SPACES TO INVOICE-ID-DATA
END-IF

INVOICE-ID-N 在此处为 null 指示符，由 DCLGEN 实用程序自动生成。

Mandalika

更新于：14-Sep-2020

2K+ 浏览量

开启你的 职业

完成课程进行认证

开始