Да, забавно...

Вот пример...

CREATE PROCEDURE SELECT_GRUPA
RETURNS (
GRUPAID INTEGER,
GRUPANAME VARCHAR(255),
SUBGRUPANAME VARCHAR(255),
SUBGRUPAID INTEGER)
AS
BEGIN
FOR SELECT g.GRUPAID,
g.GRUPANAME,
sb.SubGrupaName,
sb.SubGrupaId
FROM GRUPA g, SubGrupa sb
WHERE (g.GrupaId=sb.GrupaId)
INTO :GRUPAID,
:GRUPANAME,
:SubGrupaName,
:SubGrupaId
DO
BEGIN
SUSPEND;
END
END