为了做到这一点,我们将在对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实用程序自动生成。