1:  Create Function fnLONGIPtoIP10(LONGIP NUMERIC(11))

   2:  returns VARCHAR(15)

   3:  as

   4:   begin

   5:   

   6:   return cast(bin_shr(:LONGIP,24)as varchar(3))|| '.' ||

   7:   cast(bin_shr(:LONGIP,16)-bin_shl(bin_shr(:LONGIP,24),8)as varchar(3))|| '.' ||

   8:   cast(bin_shr(:LONGIP,8)-bin_shl(bin_shr(:LONGIP,16),8)as varchar(3))|| '.' ||

   9:   cast(:LONGIP - bin_shl(bin_shr(:LONGIP,8),8)as varchar(3)); 

  10:   

  11:   end;