CREATE FUNCTION DB2ADMIN.GETSPLIT(txt VARCHAR( 1024 ),
                                   delimiter VARCHAR( 1 ) )
    RETURNS TABLE (numid INTEGER, svalue VARCHAR( 1024 ))
    SPECIFIC DB2ADMIN.GETSPLIT
------------------------------------------------------------------------
-- SQL Пользовательская функция (Table)
------------------------------------------------------------------------
LANGUAGE SQL
MODIFIES SQL DATA -- insert available
NO EXTERNAL ACTION
      DETERMINISTIC
BEGIN ATOMIC

RETURN
   WITH
  temp1 (id, data) AS
    (VALUES ( 1 , txt)
  ),
  temp2 (id, word#, word, data_left) AS
    (SELECT id
      ,SMALLINT( 1 )
      ,SUBSTR(data,  1 ,
      CASE LOCATE(delimiter, data)
        WHEN  0  THEN LENGTH(data)
        WHEN  1  THEN  0 
        ELSE LOCATE(delimiter, data) -  1 
      END)
      ,LTRIM(SUBSTR(data,
      CASE LOCATE(delimiter, data)
        WHEN  0  THEN LENGTH(data) +  1 
        ELSE LOCATE(delimiter, data) +  1 
      END))
    FROM temp1
    WHERE data <> ''
    UNION ALL
    SELECT id
      ,word# +  1 
      ,SUBSTR(data_left,  1 ,
      CASE LOCATE(delimiter, data_left)
        WHEN  0  THEN LENGTH(data_left)
        WHEN  1  THEN  0 
        ELSE LOCATE(delimiter, data_left) -  1 
      END)
      ,LTRIM(SUBSTR(data_left,
        CASE LOCATE(delimiter, data_left)
          WHEN  0  THEN LENGTH(data_left) +  1 
          ELSE LOCATE(delimiter, data_left) +  1 
        END))
      FROM temp2
      WHERE data_left <> ''
    )
SELECT ROW_NUMBER() OVER(), word
FROM temp2
WHERE word <> ''
ORDER BY  1 ,  2 ;

END