create procedure lib_math_div_mod (
                     val_dividend bigint,
                     val_divisor bigint)
                   returns (
                     val_div bigint,
                     val_mod bigint)
  as
    begin
      /*
        calculate div / mod of division
      */

      if (   (val_dividend is null)
          or (val_divisor is null))
        then
          begin
            val_div = null;
            val_mod = null;
          end
        else
          begin
            val_div = val_dividend / val_divisor;
            val_mod = val_dividend - (val_div * val_divisor);
          end

      suspend;
    end