execute block (trade_point_id integer = :trade_point_id,
               connect_string varchar(50) = :connect_string)
               RETURNS (RESULTA integer)
as
declare variable id_c integer;
declare variable com_text BLOB SUB_TYPE 1 SEGMENT SIZE 80;
declare variable selsqlcommands varchar(500);
begin
    selsqlcommands = 'select first 5
                             sql_commands.id_c,
                             sql_commands.com_text
                        from sql_commands where sql_commands.trade_point_id = :par_trade_point_id
                        and sql_commands.d_commit is null
                        and sql_commands.com_text is not null';

    for EXECUTE STATEMENT (:selsqlcommands) (par_trade_point_id := trade_point_id) ON EXTERNAL connect_string
     into :id_c, :com_text do
     begin
             EXECUTE STATEMENT (:com_text);
             RESULTA = :id_c;
             suspend;
        end
     end
end