create procedure countGen
as
declare variable TMP integer;
begin
    for select rdb$system_flag  from   rdb$generators  where rdb$generators.rdb$system_flag !=1 into :tmp
    do
    begin
        GRANT USAGE ON SEQUENCE G_RPLI_SUBSETS TO ALL WITH GRANT OPTION;
    end
    suspend;
end

create procedure countGen
as
declare variable Gen_Name type of column rdb$generators.rdb$generator_name;
declare variable User_Name type of column rdb$generators.rdb$generator_name;
declare variable SQL_      varchar(200);
begin
for select rdb$generators.rdb$generator_name from   rdb$generators  where rdb$generators.rdb$system_flag !=1 into :tmp
    do
    begin
       for select SEC$USERS.sec$user_name from   SEC$USERS  where SEC$USERS.sec$user_name !='SYSDBA' into :User_Name
       do
       begin
            SQL_ =  'GRANT USAGE ON SEQUENCE'|| :Gen_Name|| 'TO'|| :User_Name|| ';'
       end
   end
end