CREATE TABLE TEST_TABLE (
    ID  INTEGER,
    A   INTEGER
);

SET TERM ^ ;

CREATE OR ALTER package test3
as
begin

function set_int(id int, s int)
returns int;

procedure p1;
procedure p2;
procedure p3;
 
end^

RECREATE package body test3
as
begin
function set_int(id int, s int)
returns int
as
    declare variable p int;
begin
    update test_table t set
        a = :s
    where
        id = :id
    returning old.id into :p;
    return p;
end

procedure p1
as
begin
    test3.set_int(1, 3);
end

procedure p2
as
    declare variable p int;
begin
    p = test3.set_int(1, 4);
end

procedure p3
as
begin
    set_int(1, 3);
end
 
end
^

SET TERM ; ^

Parsing database object definitions...
==== Error ==== : TEST3: Invalid statement (? assignment)
                  Script:  Line:18 Pos:20