CREATE FUNCTION NumList(max_num INTEGER)
RETURNS TABLE(num INTEGER)
LANGUAGE SQL
BEGIN ATOMIC
RETURN WITH temp1 (num) AS
(VALUES ( 0 )
UNION ALL
SELECT num +  1  FROM temp1 WHERE num < max_num)
SELECT num FROM temp1;
END    

SELECT *  FROM TABLE(VFP.GETALLWORDS('Как прикажете, мессир? - спросил Фагот у замаскированного.
      Ну что  же, -  задумчиво отозвался тот,  они  люди как  люди. Любят деньги, но ведь это всегда было...  Человечество любит деньги, из чего бы  те ни  были сделаны,  из кожи ли, из бумаги ли, из бронзы или из золота.
Ну,  легкомысленны...  ну,  что  ж... и  милосердие  иногда  стучится  в  их сердца...  обыкновенные люди... в  общем,  напоминают прежних...  квартирный вопрос только испортил их...')) AS A;

CREATE FUNCTION VFP.GETALLWORDS
(cString1 VARCHAR( 4000 ), cDelimiters1 VARCHAR( 256 ))
RETURNS table (WORDNUM SMALLINT, WORD VARCHAR( 4000 ), STARTOFWORD SMALLINT, LENGTHOFWORD SMALLINT)
SPECIFIC  GETALLWORDS
DETERMINISTIC NO EXTERNAL ACTION MODIFIES SQL DATA
BEGIN ATOMIC
     DECLARE   k, BegOfWord, wordcount, nEndString, flag SMALLINT;
     DECLARE cString  VARCHAR( 4000 ) FOR BIT DATA;
     DECLARE cDelimiters  VARCHAR( 256 ) FOR BIT DATA;
     DECLARE CALL_ID  CHAR( 13 ) FOR BIT DATA;
     SET CALL_ID  = GENERATE_UNIQUE();
     SET  cString = cString1,  cDelimiters  = cDelimiters1;
     SET   k =    1  ,  wordcount  =   1  ,  BegOfWord  =   1  ,  flag  =   0  ,  cString  =  COALESCE(cString, '') ,  cDelimiters  =  COALESCE(cDelimiters,  CHR( 32 ) CONCAT  CHR( 9 ) CONCAT CHR( 10 ) CONCAT  CHR( 13 )) ,
     nEndString  =   1   +  LENGTH(cString);
     BOUCLE: WHILE  1  >  0      DO
          IF k - BegOfWord >  0  THEN
                INSERT INTO  VFP1.GETALLWORDS (WORDNUM, WORD, STARTOFWORD, LENGTHOFWORD, UNIQUE_ID )
                             VALUES      (wordcount, SUBSTR(cString, BegOfWord, k - BegOfWord), BegOfWord, k - BegOfWord, CALL_ID );
                SET   wordcount =   wordcount  +   1   ,  BegOfWord  =  k; -- previous word
          END IF;
          IF flag =  1  THEN
                LEAVE BOUCLE;
          END IF;
          WHILE nEndString > k and LOCATE(SUBSTR(cString, k,  1 ), cDelimiters) >  0        DO
               SET   k =   k  +   1   ,  BegOfWord  =  BegOfWord  +   1 ; -- skip  break characters, if any
          END WHILE;
          WHILE  nEndString > k and LOCATE(SUBSTR(cString, k,  1 ), cDelimiters) =  0       DO
               SET   k =   k  +   1 ; -- skip  the character in the word
          END WHILE;
          IF k >= nEndString THEN
               SET   flag =    1 ;
          END IF;
     END WHILE;

    DELETE FROM VFP.GETALLWORDS WHERE DEL = 'T' AND  UNIQUE_ID < CALL_ID;
    UPDATE  VFP1.GETALLWORDS SET DEL = 'T' WHERE UNIQUE_ID  = CALL_ID;
-- вот узкое место (на мой взгляд) в данный момент кто-нибудь может удалить 
-- только что полученный реультат
   RETURN SELECT WORDNUM, WORD, STARTOFWORD, LENGTHOFWORD  FROM  VFP1.GETALLWORDS WHERE UNIQUE_ID  = CALL_ID ;
END