paginator para firebird

[micayael]

este es le primer SP que lista lo que hay en una tabla CATEGORIA_LIBROS_T

CREATE PROCEDURE SP_CATLIB_LISTAR
RETURNS (
CATLIB_ID INTEGER,
CATLIB_COD VARCHAR(10),
CATLIB_DESCRIPCION VARCHAR(50))
AS
BEGIN
FOR SELECT CATLIB_ID, CATLIB_COD, CATLIB_DESCRIPCION
FROM CATEGORIA_LIBROS_T
INTO :CATLIB_ID,:CATLIB_COD, :CATLIB_DESCRIPCION DO
BEGIN
SUSPEND;
END
END


::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::

Este es el segundo que devuelve la cantidad de filas de esa misma consulta

CREATE PROCEDURE SP_NUMROWS_CATLIB
RETURNS (
NUMROWS INTEGER)
AS
BEGIN
SELECT COUNT(CATLIB_ID)
FROM CATEGORIA_LIBROS_T
INTO :NUMROWS;
SUSPEND;
END



Si les interesa puedo poner un ejemplo sobre el tema. Si encuentran como mejorarlo les agradeceria que me lo cuenten..

Un abrazo a todos