Example 1

    The following example uses RDB$MISSING in a STORE statement:

       .
       .
       .
    *
    *    If the date in the input file contains zeros,
    *    use the GET statement with RDB$MISSING to retrieve
    *    the missing value and assign it to a variable.
    *
            IF END-DATE = '000000' THEN
    &RDB&   GET END-DATE = RDB$MISSING(SALARY_HISTORY.SALARY_END)
    &RDB&   END_GET
            END-IF.
    *

    *    Store the field values in the relation.
    *    If the date in the input file contained zeros,
    *    the missing value is passed to Oracle Rdb, and
    *    the SALARY_END field is marked as missing.
    *
    &RDB&  STORE S IN SALARY_HISTORY USING
    &RDB&        S.EMPLOYEE_ID = EMP-ID;
    &RDB&        S.SALARY_START = START-DATE;
    &RDB&        S.SALARY_END = END-DATE;
    &RDB&        S.SALARY_AMOUNT = SALARY;
    &RDB&      END_STORE

    This program fragment shows how your program might test for a missing
    field in an input file and make the field missing in the database. This
    program assumes that a missing value has been defined for the field. The
    program does not need to know what the missing value is, and the
    program needs only one STORE statement.