SET v_ret = (
  SELECT  1  FROM TABLE(DB2ADMIN.FSPLIT(v_emails, ';')) as x
  WHERE DB2ADMIN.FISEMAILVALID(txt) <>  1 
  FETCH FIRST  1  ROW ONLY);

SET v_ret = (
  SELECT  0  FROM TABLE(DB2ADMIN.FSPLIT(v_emails, ';')) as x
  WHERE DB2ADMIN.FISEMAILVALID(txt) <>  1 
  FETCH FIRST  1  ROW ONLY);

CONNECT TO TICKPROC 

   Информация соединения с базой данных

 Сервер баз данных           = DB2/NT  8 . 2 . 2 
 ID авторизации SQL          = ADMINIST...
 Алиас локальной базы данных = TICKPROC


DROP FUNCTION FAREEMAILSVALID( VARCHAR( 1024 ) ) 
DB20000I  Команда SQL выполнена успешно.

DROP FUNCTION FSPLITTEXT(VARCHAR( 1024 ), VARCHAR( 1 )) 
DB20000I  Команда SQL выполнена успешно.

DROP FUNCTION FISEMAILVALID(VARCHAR( 1024 )) 
DB20000I  Команда SQL выполнена успешно.

CREATE FUNCTION FISEMAILVALID(txt VARCHAR( 1024 ))
RETURNS INTEGER
LANGUAGE SQL
CONTAINS SQL
NO EXTERNAL ACTION
DETERMINISTIC
RETURN 
  CASE 
    WHEN LOCATE('@', txt)> 0  THEN  1  
    ELSE  0  
  END

DB20000I  Команда SQL выполнена успешно.

CREATE FUNCTION FSPLITTEXT(txt VARCHAR( 1024 ), delimiter VARCHAR( 1 ) )
RETURNS TABLE (numid INTEGER, data VARCHAR( 1024 ))
LANGUAGE SQL
CONTAINS 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 data
  FROM temp2
  WHERE word <> ''
  ORDER BY  1 ,  2 ;
END 

SQL0347W  Рекурсивное общее табличное выражение "ADMINISTRATOR.TEMP2", 
возможно, содержит бесконечный цикл.  SQLSTATE= 01605 

CREATE FUNCTION FAREEMAILSVALID( v_emails VARCHAR( 1024 ) )
  RETURNS INTEGER
  LANGUAGE SQL
  CONTAINS SQL
--    MODIFIES SQL DATA -- insert available
  DETERMINISTIC
  NO EXTERNAL ACTION
BEGIN ATOMIC
  DECLARE v_ret INTEGER;
  SET v_ret = (
    SELECT  0  FROM TABLE(FSPLITTEXT(v_emails, ';')) as x
    WHERE FISEMAILVALID(data) <>  1 
    FETCH FIRST  1  ROW ONLY
  );
  RETURN v_ret;
END 

DB20000I  Команда SQL выполнена успешно.