Informix foreach

[nicostone]

Hola amigos tengo un problema que es muy simple, estoy usando por primera vez informix y no puedo hacer que funcion el maldito FOREACH
ACLARACION: si hay algun error tonto es porque la escribi aqui no hice copy and paste.

Código:

CREATE FUNCTION mifuncion (nombre1 char(20)) returning INT
DEFINE A INT;
FOREACH select * from persona;
        A=A+1;
END FOREACH; 
RETURN A;
END FUNCTION;

Esa es la funcion que no puedo hacer que funcione y leyendo sobre el tema he visto que lo realizan de las siguientes maneras, obviamente intente de todos ellas pero nada, si alguien me da una mano estaria muy agradecido.

Lo que he visto:

Código:

FOREACH sal_cursor FOR
      SELECT salary INTO s FROM employee 
         WHERE salary > 35000;
      LET s = s + s * ( pct/100 );
      UPDATE employee SET salary = s
         WHERE CURRENT OF sal_cursor;
   END FOREACH;

o la otra manera

Código:

FOREACH SELECT c1 INTO i FROM tab ORDER BY 1
      INSERT INTO tab2 VALUES (i);
END FOREACH

Bueno espero que me pueda ayudar, desde ya gracias por tomarse el tiempo de leer mi post.

Saludos.

NicoStone.