О, моя невнимательность! :( Действительно, не заметил, что забыл returning_values.
Однако, почему-то не помогло.
Вылазит все таже ошибка:
This operation is not defined for system tables.
unsuccessful metadata update.
ERASE RDB$PROCEDURE_PARAMETERS failed.
invalid request BLR at offset 69.
parameter mismatch for procedure ADD_PROFILE.
Вот исправленная некомпилирующаяся процедура
1.
2.
3.
4.
5.
6.
7.
CREATE PROCEDURE ADD_PROFILE_HHO (
ANAME VARCHAR( 100 ),
ACOMMENT VARCHAR( 100 ))
AS
declare variable dummy integer;
begin
execute procedure add_profile (:aname, 1 , :Acomment) returning_Values :dummy;
end
А вот процедура add_profile:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
CREATE PROCEDURE ADD_PROFILE (
ANAME VARCHAR( 100 ),
AENTITYTAG SMALLINT,
ACOMMENT VARCHAR( 500 ))
RETURNS (
PROFILEID INTEGER)
AS
begin
if (not (exists(select id from profile where name=:aname and EntityTag=:AEntityTag))) then
begin
insert into Profile (EntityTag, Name, Comment) values (:aEntityTag, :Aname, :acomment);
profileid=gen_id(gen__profile, 0 );
suspend;
end
else exception profile_004_001_001;
end
Люди, не ругайтесь. Чувствую, что тормажу, но не пойму где...
