MERGE INTO "Coupons" USING "couponsFile" ON SUBSTRING("couponsFile"."code" FROM 1 FOR 12) = "Coupons"."Code"
WHEN MATCHED THEN UPDATE SET "Active" = 0;

FOR SELECT "couponsFile"."code", "Coupons"."Code"
    FROM "couponsFile", "Coupons"
    WHERE "couponsFile"."code" = "Coupons"."Code"
    DO
      BEGIN
        UPDATE "Coupons"
        SET "Active" = 0
        WHERE "couponsFile"."code" = "Coupons"."Code"
      END*

BEGIN
FOR SELECT "couponsFile"."code"
    FROM "couponsFile"
    INTO :TALON
    DO
     UPDATE "Coupons"
        SET "Active" = 0
        WHERE "Coupons"."Code" = :TALON;
      END

SET TERM ^;
CREATE PROCEDURE TALON_UPDATE ()
AS
  DECLARE VARIABLE TALON CHAR(12) DEFAULT NULL;
BEGIN
  FOR
      SELECT SUBSTRING("couponsFile"."code" FROM 1 FOR 12)
        FROM "couponsFile"
        INTO :TALON
    DO
      UPDATE "Coupons"
        SET "Active" = 0
        WHERE "Coupons"."Code" = :TALON;
END^
SET TERM ;^
COMMIT WORK;

/*
--= TEST =--
EXECUTE PROCEDURE TALON_UPDATE;
*/

where "Coupons"."Code" starting with :Talon

BEGIN
  FOR
      SELECT SUBSTRING("couponsFile"."code" FROM 1 FOR 12)
        FROM "couponsFile"
        INTO :TALON
    DO
      UPDATE "Coupons"
        SET "Active" = 0
        WHERE "Coupons"."Code" STARTING WITH :TALON;
END

...
Забавно. Поглядел твой DDL. Возникло два вопроса:

1. На кой ты используешь SUBSTRING("couponsFile"."code" FROM 1 FOR 12) если у тебя couponsFile и так длинной 12 символов?
2. "Coupons"."Code" походу не фига не ПК. Какова селективность индекса на этот филд?
3. Сколько по времени выполняется 
...
[/quot]

1. Это осталось еще после того, как номера были 13 символов. Согласен он нафиг тут не нужен.
2. Селективность максимальная, т.е. все номера уникальны.
3. Время выполнения разное. например вот это:

[SRC sql]BEGIN
  FOR
      SELECT SUBSTRING("couponsFile"."code" FROM 1 FOR 12)
        FROM "couponsFile"
        INTO :TALON
    DO
      UPDATE "Coupons"
        SET "Active" = 0
        WHERE "Coupons"."Code" = :TALON;
END

CREATE DOMAIN "TName" AS
VARCHAR(100) CHARACTER SET WIN1251
COLLATE WIN1251;