Курсор в хранимой процедуре

 BEGIN
  /* Procedure Text */
  
  FOR
--выводит всех людей которые сходили в определенный магазин (nomlpu)
--в определенное время с '01.05.2009' по '30.05.2009'
         SELECT
          r.fam,
          r.drod,
          r.datin,
          r.datout,
          r.p_no
         FROM reestr r
         WHERE  r.nomlpu=:nomlpu AND r.datout BETWEEN '01.05.2009' AND '30.05.2009'
         ORDER BY r.fam
         INTO :fam,
              :drod,
              :datin,
              :datt,
              :p_no
  do BEGIN
--объявляю курсор
--в запросе вывожу повторные случаи похождения человека в магазин 
   DECLARE C CURSOR FOR (SELECT  rr.fam,
                    rr.drod,
                    rr.datin,
                    rr.datout
            FROM reestr rr
            WHERE rr.datin<(:datt+90) AND rr.datin>:datt AND rr.pr_opl=1
            AND rr.p_no=TRIM(:p_no) AND rr.fam=TRIM(:fam) );
       BEGIN
            OPEN C;
            FETCH C INTO   :pfam,
                           :pdrod,
                           :pdatin,
                           :pdatout;
           WHILE (ROW_COUNT > 0) DO
            BEGIN
               INSERT INTO povtor(fam,
                                  drod,
                                  datein,
                                  dateout,
                                  pdatein,
                                  pdateout)
               VALUES (:fam,
                       :drod,
                       :datin,
                       :datt,
                       :pdatin,
                       :pdatout);
            END
   END
  suspend;
  CLOSE C;
END

SELECT r.fam,r.p_no,r.datin,r.datout,rrr.datin,rrr.datout
FROM reestr r
JOIN (SELECT rr.datin,rr.datout,rr.p_no
      FROM reestr rr
      WHERE rr.pr_opl=1 AND rr.nomlpu=6601) AS rrr ON r.p_no=rrr.p_no
WHERE r.pr_opl=1 AND r.nomlpu=6601
GROUP BY r.fam,r.p_no,r.datin,r.datout,rrr.datin,rrr.datout
HAVING rrr.datin<(r.datout+90) AND rrr.datin>r.datout
ORDER BY r.fam

SELECT r.fam,r.p_no,r.datin,r.datout,r.datin,r.datout
FROM reestr r
WHERE r.pr_opl=1 AND r.nomlpu=6601 AND r.pr_opl=1 AND r.nomlpu=6601
GROUP BY r.fam,r.p_no,r.datin,r.datout,r.datin,r.datout
HAVING r.datin<(r.datout+90) AND r.datin>r.datout
ORDER BY r.fam