Moises,

Be careful with using functions that return variable length strings, you might end up with wrong results, for example if the first word found in the set is only 3 chars long, that will be the assumed length of the field for the created cursor truncating other longer words, I would use CAST to avoid this, ie:

SELECT CAST(GETWORDNUM(Prog_long,1,",")  AS C((select max(len(alltrim(GETWORDNUM(Prog_long,1,",")))) from reembolso))) AS prog_long ,  COUNT(*) AS Quant;
  FROM reembolso;
  WHERE reembolso.date > DATE()-thisform.days.value;
  GROUP BY 1;
  ORDER BY quant DESC; 
  INTO CURSOR crsReemb