package body conversions is subtype null_indication is indicator_type range indicator_type'first .. -1; function convert(input : int; indicator : indicator_type) return sql_int is begin if indicator in null_indication then return null_sql_int; else return with_null_base(sql_int_not_null(input)); end if; end convert; function convert(input : smallint; indicator : indicator_type) return sql_smallint is begin if indicator in null_indication then return null_sql_smallint; else return with_null_base(sql_smallint_not_null(input)); end if; end convert; function convert(input : char; indicator : indicator_type) return sql_char is begin if indicator in null_indication then return null_sql_char; else return with_null_base(sql_char_not_null(input)); end if; end convert; function convert(input : real; indicator : indicator_type) return sql_real is begin if indicator in null_indication then return null_sql_real; else return with_null_base(sql_real_not_null(input)); end if; end convert; function convert(input : double_precision; indicator : indicator_type) return sql_double_precision is begin if indicator in null_indication then return null_sql_double_precision; else return with_null_base(sql_double_precision_not_null(input)); end if; end convert; end conversions;