SET TERM ^ ;

CREATE OR ALTER PACKAGE PKG_UDR_UTILS
AS
BEGIN
  FUNCTION SF_FORMAT_STR3 (
    in_format VARCHAR(1024),
    in_arg1 VARCHAR(1024),
    in_arg2 VARCHAR(1024) = NULL,
    in_arg3 VARCHAR(1024) = NULL)
  RETURNS VARCHAR(2048)
  DETERMINISTIC;

  FUNCTION SF_DBL_TO_STR (
    in_value DOUBLE PRECISION,
    in_prec SMALLINT = NULL,
    in_scale SMALLINT = NULL)
  RETURNS VARCHAR(16)
  DETERMINISTIC;
END^

RECREATE PACKAGE BODY PKG_UDR_UTILS
AS
BEGIN
  FUNCTION SF_FORMAT_STR3 (
    in_format VARCHAR(1024),
    in_arg1 VARCHAR(1024),
    in_arg2 VARCHAR(1024),
    in_arg3 VARCHAR(1024))
  RETURNS VARCHAR(2048)
  DETERMINISTIC
  EXTERNAL NAME 'UdrUtils.dll!format'
  ENGINE UDR;

  FUNCTION SF_DBL_TO_STR (
    in_value DOUBLE PRECISION,
    in_prec SMALLINT,
    in_scale SMALLINT)
  RETURNS VARCHAR(16)
  DETERMINISTIC
  EXTERNAL NAME 'UdrUtils.dll!dbl_to_str'
  ENGINE UDR;
END^

SET TERM ; ^