Execute Block en un IBScript

[[gluglu]]

Código Delphi [-]
SET TERM #;
EXECUTE BLOCK
AS
DECLARE VARIABLE VAR_A BIGINT;
DECLARE VARIABLE VAR_B BIGINT;
BEGIN
  For Select VALUEA, VALUEB from TEMP_SCRIPT
        into :VAR_A, :VAR_B
  do
      Update AVAIL_WEB_XML_UPDATES
      Set CHANNELMANAGER_INTNO = :VAR_B
      where INTERNALNO = :VAR_A;
END#
SET TERM ;#

... vaya ... como siempre.

Pongo la pregunta y encuentro la respuesta.

Ahora lo que ocurre es que parece que al componente IBScript no le parece correcto :VAR_A ya que me devuelve Token Unknown Line 7, Column 14.