Firebird. Имам няколко таблици с номенклатури, които пълня с данни от предишна версия на програмата. Таблиците имат ключово поле тип autoincrement. След попълването на данните трябва някак си да "reset"-на стойностите на генераторите. Написах следното:
CREATE PROCEDURE RESETGENERATORS
AS
DECLARE VARIABLE М BIGINT;
begin
select max(kod) from nomoperator into М;
М=case when М is null then 1 else М+1 end;
SET gen_nomoperator_id TO М;
suspend;
end
и ми дава грешка "Invalid token. SET." при условие че IBExpert изпълнява същия този ред, когато на ръка се променя стойността на генератора.. Хелп?

Накратко:
CREATE PROCEDURE RESETGENERATORS
AS
DECLARE VARIABLE М BIGINT;
begin
select max(kod) from nomoperator into М;
М=case when М is null then 1 else М+1 end;
-- SET gen_nomoperator_id TO М;
M=gen_id(gen_nomoperator_id,gen_id(gen_nomoperator_id,-gen_id(gen_nomoperator_id,0))+M);

suspend;
end

Мерси, тъкмо и аз това намерих... Имало разлика между DDL и DML... :)