EXECUTE IBEBLOCK
AS
BEGIN
  SELECT
    *
  FROM
    rdb$database d AS DATASET ds;

  WHILE (NOT ibec_ds_Eof(ds)) DO
  BEGIN
    TRY
      EXCEPTION TEST 'Test';
    EXCEPT
      EXCEPTION NEW_TEST 'New test';
    END
    ibec_ds_Next(ds);
  END
  CLOSE DATASET ds;
END

try
  ibec_PrepareStatement(db, var_sql, '', true);
except
  var_msg = 'Invalid statement for table ' || ibec_ds_GetField(ds, 0) ||
    '. Field ' || ibec_ds_FieldName(ds, i) || ibec_CRLF() ||
    ibec_err_Message();
  exception INVALID_STATEMENT var_msg;
end