create or alter procedure SYSTEM_GETWORDCOUNT(
 I_TEXT BLOB SUB_TYPE 0 SEGMENT SIZE 80,
 I_COUNT integer default 0,
 I_TRENNER varchar(50) default Null
)
returns (
O_COUNT integer
)
as
declare variable V_POS integer;
declare variable V_LEN integer;
begin
   O_COUNT = 0;
   V_LEN = 0;

   if (I_TRENNER is null) then
   I_TRENNER = ',';

   V_POS = POSITION(:I_TRENNER IN :I_TEXT)+1;
   V_LEN = CHAR_LENGTH(I_TEXT)-V_POS ;

   if (V_POS > 0) then
   begin

     /*  пробовал и так */
     /*  SELECT O_COUNT from SYSTEM_GETWORDCOUNT(SUBSTRING(:I_TEXT FROM :V_POS FOR :V_LEN),:I_COUNT,:I_TRENNER) into :O_COUNT;  */

     /*  и так */ 
     /*   execute procedure SYSTEM_GETWORDCOUNT SUBSTRING(I_TEXT FROM V_POS FOR V_LEN),I_COUNT,I_TRENNER RETURNING_VALUES O_COUNT;*/

     O_COUNT = O_COUNT + I_COUNT;
     suspend;
   end
   else
   begin
      O_COUNT = I_COUNT +1;
      suspend;
   end

end^

\r\nSET TERM ^ ;\r\n\r\ncreate or alter procedure LIST_TO_ROWS (\r\n    A_LST blob sub_type 1 segment size 80,\r\n    A_DEL char(1) = \',\')\r\nreturns (\r\n    LINE integer,\r\n    EOF integer,\r\n    ITEM varchar(8192))\r\nAS\r\n  declare pos_ int;\r\n  declare offset int = 1;\r\n  declare beg int;\r\n  declare buf varchar(30100);\r\nbegin\r\n  -- Splits blob to lines by single char delimiter.\r\n  -- adapted from here:\r\n  -- /topic/607154&pg=2#6686267\r\n  if (a_lst is null) then exit;\r\n  line=0;\r\n\r\n  while (0=0) do begin\r\n    buf = substring(a_lst from offset for 30100);\r\n    pos_ = 1; beg = 1;\r\n    while (pos_ <= char_length(buf) and pos_ <= 30000) do begin\r\n      if (substring(buf from pos_ for 1) = :a_del) then begin\r\n        if (pos_ > beg) then\r\n          item = substring(buf from beg for pos_ - beg);\r\n        else\r\n          item = \'\'; --null;\r\n        suspend;\r\n        line=line+1;\r\n        beg = pos_ + 1;\r\n      end\r\n      pos_ = pos_ + 1;\r\n    end\r\n    if (offset + pos_ - 2 = char_length(a_lst)) then leave;\r\n    offset = offset + beg - 1;\r\n    if (offset > char_length(a_lst)) then leave;\r\n  end\r\n\r\n  if (pos_ > beg) then begin\r\n    item = substring(buf from beg for pos_ - beg);\r\n    eof=-1;\r\n  end\r\n  else begin\r\n    item = \'\';\r\n    eof=-1;\r\n  end\r\n  suspend;\r\nend^\r\n\r\nSET TERM ; ^\r\n

.....
declare buf varchar(30100); 
.....