PARSER_ID = -1;
  SQL_TEXT =
    'SELECT MODULE_ID, ROW_ID FROM Cashs2_Operations ' ||
    'WHERE MATCH(' || SPHINXCLIENT$QUOTEDSTR(QUERY_STR) || ')';
  SQL_TEXT = SQL_TEXT || ' LIMIT 1000000 OPTION MAX_MATCHES=1000000';
  ....
  PARSER_ID = SPHINXCLIENT$CREATE();
  IF (SPHINXCLIENT$EXEC_SQL(PARSER_ID, SQL_TEXT) = 1) THEN
  BEGIN
    DELETE FROM SPHINXSEARCH$RESULTS WHERE TID = CURRENT_TRANSACTION;
    WHILE (SPHINXCLIENT$EOF(PARSER_ID) = 1) DO
    BEGIN
      INSERT INTO SPHINXSEARCH$RESULTS (MODULE_ID, TABLE_KEY)
        VALUES (SPHINXCLIENT$CURRENT_VALUE(:PARSER_ID, 0), SPHINXCLIENT$CURRENT_VALUE(:PARSER_ID, 1));
      SPHINXCLIENT$NEXT(PARSER_ID);
    END
  END
  ELSE
    EXCEPTION SPHINXSEARCH$ERROR 'Remote procedure "SPHINXCLIENT$EXEC_SQL" call failed';
  WHEN ANY DO
  BEGIN
    IF (PARSER_ID <> -1) THEN
      SPHINXCLIENT$FREE(PARSER_ID);
    EXCEPTION;
  END