如何使用 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+ 瀏覽量

開啟你的 職業

完成課程進行認證

開始