Добро пожаловать в форум, Guest  >>   Войти | Регистрация | Поиск | Правила | В избранное | Подписаться
Все форумы / IBExpert Новый топик    Ответить
 Сравнение пакетов с UDR  [new]
_Vasilisk_
Member

Откуда: Украина, Харьков
Сообщений: 12343
Есть такой пакет
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 ; ^
При запуске Database Comparer получаем ошибку
==== Error ==== : PKG_UDR_UTILS: Missing: AS (EXTERNAL)
Script: Line:9 Pos:12
Хотя скрипт при этом создается.И он корректный.

С уважением, Vasilisk
11 сен 20, 15:14    [22195437]     Ответить | Цитировать Сообщить модератору
 Re: Сравнение пакетов с UDR  [new]
IBExpert
Member

Откуда: От верблюда
Сообщений: 3331
Исправил.
14 сен 20, 04:27    [22196296]     Ответить | Цитировать Сообщить модератору
Все форумы / IBExpert Ответить