Или лыжи не едут...

Есть таблица
CREATE TABLE TREES (
TID INTEGER NOT NULL,
PARENT_TID INTEGER NOT NULL,
NAME VARCHAR(30) NOT NULL COLLATE PXW_CYRL,
PASH VARCHAR(250)
)

Pash - путь от узла до корня
И есть процедура, которая формирует Pash для узла.


CREATE PROCEDURE TREES_SET_PASH (
TABLE_NAME VARCHAR(50),
IN_ID INTEGER)
AS
DECLARE VARIABLE VAR_ID INTEGER;
DECLARE VARIABLE NAME_FULL VARCHAR(250);
DECLARE VARIABLE E_ID INTEGER;
DECLARE VARIABLE P_ID INTEGER;
DECLARE VARIABLE NAME VARCHAR(30);
DECLARE VARIABLE SQL VARCHAR(250);
BEGIN
SQL = '';
VAR_ID = IN_ID;
EXECUTE STATEMENT 'SELECT NAME from ' || Table_Name || ' where TID = ' || :VAR_ID into : NAME_FULL;


EXECUTE STATEMENT 'select PARENT_TID from ' || Table_Name ||
' where TID =' || :VAR_ID into : VAR_ID;

WHILE (VAR_ID > 0) DO
BEGIN

EXECUTE STATEMENT 'SELECT TID, PARENT_TID, NAME FROM ' ||
Table_Name || ' WHERE TID = ' || :VAR_ID
INTO :E_ID, :P_ID, :NAME;

VAR_ID=P_ID;
if (NAME = '') then begin
NAME_FULL = 'demagesroot';
end
else NAME_FULL = NAME || '@' || NAME_FULL;
END

SQL = 'UPDATE ' || Table_Name || ' SET pash = ' || '''' || NAME_FULL || '''' ||
' where TID = ' || :IN_ID;


EXECUTE STATEMENT SQL;
SUSPEND;
END

Теперь о нюансах:
Есль прослеживается весь путь до корня - все отрабатывает.
Если же где-то обрыв (ну удалили родителя)

Unsuccessful execution caused by an unavailable resource.
Invalid argument in EXECUTE STATEMENT - cannot convert to string.

У кого есть какие-нибудь мысли по этому поводу?

Убеждался. Прекрасная строка - как и должно быть,
только
SQL = 'UPDATE ' || Table_Name || ' SET pash = ' || '''' || NAME_FULL || '''' ||
' where TID = ' || :IN_ID;
EXECUTE STATEMENT SQL;

работает после того, как

EXECUTE STATEMENT 'SELECT TID, PARENT_TID, NAME FROM ' ||
Table_Name || ' WHERE TID = ' || :VAR_ID
INTO :E_ID, :P_ID, :NAME;
найдет какую-либо строку.

Если строка не найдена, то E_ID = 0, P_ID= 0, NAME= ''

Но после этого не выполняется UPDATE, хотя строка SQL правильная.

Все то же.
Хотя, с недавних пор появляется другое исключение


Arithmetic overflow or division by zero has occurred.
arithmetic exception, numeric overflow, or string truncation.

Триггеров нет

PS: Мимопроходящему:
Просили помочь разобраться с этой ситуацией, а не материться и корчить из себя "гуру". Короче,проходя-проходи, "гуру", не засоряй эфир!

Att: alex777
На уродов больше не реагирую

Att Мимопроходящий:
Со вчерашнего дня.
Но ситуация такая - или это глюк FB, тогда стоит подумать о другом выходе (он есть, но мне не нравится) или я чего-то не догоняю.
Скорость в данном случае не критична, а имена таблиц у меня генерятся как угодно.

Теперь к Gold:
написал так:

CREATE PROCEDURE TREES_UPDATE_PASH2 (
TABLE_NAME VARCHAR(50))
AS
DECLARE VARIABLE VAR_ID INTEGER;
DECLARE VARIABLE PASH VARCHAR(250);
DECLARE VARIABLE SQL VARCHAR(250);
BEGIN
var_ID = 225;./*у этой записи специально удалил родителя
TABLE_NAME = 'TREES_BRAND20040714172103';
EXECUTE PROCEDURE trees_get_pash (TABLE_NAME, VAR_ID ) RETURNING_VALUES Pash;

if (Pash = 'damagesRoot')
then begin
sql = 'DELETE FROM ' || Table_Name || ' where TID = ' || :VAR_ID;
end
else SQL = 'UPDATE ' || Table_Name || ' SET pash = ' || '''' || Pash || '''' ||
' where TID = ' || :VAR_ID;
EXECUTE STATEMENT SQL;

SUSPEND;
END


CREATE PROCEDURE TREES_GET_PASH (
TABLE_NAME VARCHAR(50),
IN_ID INTEGER)
RETURNS (
RETPASH VARCHAR(250))
AS
DECLARE VARIABLE VAR_ID INTEGER;
DECLARE VARIABLE NAME_FULL VARCHAR(250);
DECLARE VARIABLE VP_ID INTEGER;
DECLARE VARIABLE VNAME VARCHAR(50);
DECLARE VARIABLE SQL VARCHAR(250);
BEGIN
SQL = '';
VAR_ID = IN_ID;
NAME_FULL = '';


WHILE (VAR_ID > 0) DO
BEGIN
sql = 'SELECT PARENT_TID, NAME FROM ' || Table_Name ||
' WHERE TID = ' || :VAR_ID;
EXECUTE STATEMENT SQL INTO :vP_ID, :vNAME;
VAR_ID=vP_ID;
if (vName = '') then begin
NAME_FULL = 'damagesRoot';
end
else NAME_FULL = vNAME || '@' || NAME_FULL;
END
RETPASH = NAME_FULL;
SUSPEND;
END


EXECUTE PROCEDURE trees_get_pash Возвращает
Arithmetic overflow or division by zero has occurred.
arithmetic exception, numeric overflow, or string truncation.
При отладке в Ibexpert происходит вход в trees_get_pash
RETPASH принимает значение, но пи возврате в TREES_UPDATE_PASH2
матерится, но только в том случае, если

sql = 'SELECT PARENT_TID, NAME FROM ' || Table_Name ||
' WHERE TID = ' || :VAR_ID;
EXECUTE STATEMENT SQL INTO :vP_ID, :vNAME;
запрос не возвращает ни одной строки
Если на возврате строка - все ОК.
Кажется, что все-таки глюк

Att: Gold

Возврвщает Null, хотя при отладке перед выполнением
EXECUTE STATEMENT SQL - SQL высвечивает правильную строку.
(Ibexpert 2004.04.08, FB 1.5


Att: AndriyKo

Проверял на Null - как и советовал

if (NAME_FULL is Null) then NAME_FULL = '';
If (IN_ID Is Null) Then IN_ID=0;

Результат тот-же.
Что-то происходит в момент выполнения EXECUTE STATEMENT SQL

Att: Bol

Эта на крайний случай. Уже думал об этом

Спасибо всем.
Особенно AndriyKo
Ну никак не подумал бы, что отладчик глючит.

Все работает.