Power Builder - Contar registros

Estoy utilizando cursores y deseo obtener la cantidad de registros que obtiene una sentencia SELECT. Como lo puedo hacer? lo phe probado de las siguientes maneras y no funciona. Que hago mal? Mil GRACIAS.

SELECT count(*)
into :reg,
fechas.fec_titulo,
fechas.fec_fecha,
fechas.fec_obser
FROM fechas
WHERE fechas.fec_fecha='30/05/02'
GROUP BY fechas.fec_fecha;

y

select count(*)
into :reg
from fechas
where fechas.fec_fecha='30/05/02' ;

ME dice que el cursor no esta abierto.

Para abrirlo uso:

FETCH Fech_Imp_hoy INTO :titul, :fechis, :observa;
y

FETCH Fech_Imp_hoy into :reg;

La sentencia esta muy bien ...aclara un poco mas tu pregunta para poderte ayudar.

Mira con la siguiente sentencia quiero obtener los registros y el numero de registros que regresa.

Cuando compilo, no me marca error, sin embargo cuando corro la aplicacion, me sale una ventanita que me dice que el cursor no esta abierto.

DECLARE Fech_Imp_hoy CURSOR FOR
SELECT count(*) as canti,
fechas.fec_titulo,
fechas.fec_fecha,
fechas.fec_obser
FROM fechas
WHERE fechas.fec_fecha='30/05/02'
GROUP BY fechas.fec_fecha;

OPEN Fech_Imp_hoy;
FETCH Fech_Imp_hoy INTO :reg, :titul, :fechis, :observa;

donde reg es un Long que guardara canti, osea mi cantidad de registros.

GRACIAS

Ok...ya vi lo que te esta ocurriendo, cada vez que utilizas una funcion en este caso COUNT(*), el Group by debe tener todos los campos del select....
Ejemplo1:
DECLARE Fech_Imp_hoy CURSOR FOR
SELECT count(*) FROM fechas
WHERE fechas.fec_fecha='30/05/02' ;

OPEN Fech_Imp_hoy;
FETCH Fech_Imp_hoy INTO :reg;

Ejemplo2:
DECLARE Fech_Imp_hoy CURSOR FOR
SELECT count(*), fechas.fec_fecha FROM fechas
WHERE fechas.fec_fecha='30/05/02'
GROUP BY fechas.fec_fecha;

OPEN Fech_Imp_hoy;
FETCH Fech_Imp_hoy INTO :reg, :fechis;

Espero haberte ayudado

si quieres saber cuantos registros te devuelve un cursor en power builder , usa la propiedad SQLNRows de la transaccion despues de hacer el open del cursor , creo que eso resuelve tu problema

ej.

Open micursor;

if sqlca.sqlnrows > 0 then
messagebox ("mayor", "x")
end if


saludos