Дубль. Обновление в карте

EXECUTE block
AS
/*
 * Автор Коробка А.А.
 *
 * Обновление дублированных карт - снятие отметки дубликата
 * Обновление идет только по части карт, т.к. занимает очень долго времени
 */
DECLARE pcode TYPE OF COLUMN clients.pcode;
BEGIN
  FOR SELECT FIRST 1100 pcode FROM clients
       WHERE cstatus=994045364 ORDER BY modifydate ASC
  INTO pcode do
  BEGIN
    UPDATE clients SET modifydate=CURRENT_TIMESTAMP, cstatus=NULL
     WHERE pcode= :pcode;
  END
END