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

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

下面是一个 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 在这里是一个空指示符，它由 DCLGEN 实用程序自动生成。