您将如何编写COBOL段落以检查ORDERS表中的主键ORDER_ID = 678542112是否在INVOICE_ID列中包含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实用程序自动生成。

猜你喜欢