Нашёл.
Проблема в моем случае возникает при формировании ALTER PROCEDURE таких процедур, у которых есть параметры, которые описаны как TYPE OF COLUMN, а соответствующие поля описаны доменами.
В этом случае при отличиях в скрипте-источнике для таких процедур формируется некорректный ALTER PROCEDURE с пустым телом в секции скрипта
Altering stored procedures (with empty bodies)
как раз в части параметров, тип которых указан как TYPE OF COLUMN - теряется тип из домена поля таблицы.
Например, была таблица с полем, описанным доменом и селективная процедура.
Извлекли метаданные.
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
CREATE DOMAIN D$BOOL AS
SMALLINT
DEFAULT 0
NOT NULL
CHECK (value between 0 and 1);
SET TERM ^ ;
CREATE PROCEDURE SELECT_NEW_TABLE
RETURNS (
ID integer /* TYPE OF COLUMN NEW_TABLE.ID */,
F1 SMALLINT /* TYPE OF COLUMN NEW_TABLE.F1 */
)
AS
BEGIN
SUSPEND;
END^
SET TERM ; ^
CREATE TABLE NEW_TABLE (
ID INTEGER,
F1 D$BOOL NOT NULL
);
SET TERM ^ ;
ALTER PROCEDURE SELECT_NEW_TABLE
RETURNS (
F1 TYPE OF COLUMN NEW_TABLE.F1)
AS
begin
/* Procedure Text */
for select f1 from new_table into :f1 do
suspend;
end^
SET TERM ; ^
Добавляем поле F2 в таблицу и в выходные параметры процедуры.
Модифицируем только эталонный скрипт - не базу. Ну, надо ж нам сэмулировать, что приплыли откуда-то актуальные метаданные, которые нам предстоит накатить на базу.
Добавляем в таблицу, в выходные параметры процедуры и в текст процедуры поле F2.
Для примера аналогичное полю F1.
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
SET TERM ^ ;
CREATE PROCEDURE SELECT_NEW_TABLE
RETURNS (
ID integer /* TYPE OF COLUMN NEW_TABLE.ID */,
F1 SMALLINT /* TYPE OF COLUMN NEW_TABLE.F1 */ ,
F2 SMALLINT /* TYPE OF COLUMN NEW_TABLE.F2 */
)
AS
BEGIN
SUSPEND;
END^
SET TERM ; ^
CREATE TABLE NEW_TABLE (
ID INTEGER,
F1 D$BOOL NOT NULL,
F2 D$BOOL NOT NULL
);
SET TERM ^ ;
ALTER PROCEDURE SELECT_NEW_TABLE
RETURNS (
F1 TYPE OF COLUMN NEW_TABLE.F1,
F2 TYPE OF COLUMN NEW_TABLE.F1)
AS
begin
/* Procedure Text */
for select f1, f2 from new_table into :f1, f2 do
suspend;
end^
SET TERM ; ^
И сравнивая модифицированный скрипт с предыдущей базой получаем в разностном скрипте:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
/******************************************************************************/
/**** Altering stored procedures (with empty bodies) ****/
/******************************************************************************/
SET TERM ^ ;
ALTER PROCEDURE SELECT_NEW_TABLE
RETURNS (
F1 /* TYPE OF COLUMN NEW_TABLE.F1 */ ,
F2 /* TYPE OF COLUMN NEW_TABLE.F2 */ )
AS
BEGIN
SUSPEND;
END
^
/******************************************************************************/
/**** Altering stored procedures ****/
/******************************************************************************/
ALTER PROCEDURE SELECT_NEW_TABLE
RETURNS (
F1 TYPE OF COLUMN NEW_TABLE.F1,
F2 TYPE OF COLUMN NEW_TABLE.F2)
AS
begin
/* Procedure Text */
for select f1, f2 from new_table into :f1, :f2 do
suspend;
end
^
SET TERM ; ^
Искомая ошибка в ALTER PROCEDURE в секции скрипта
Altering stored procedures (with empty bodies)
Потеря типа параметра.
