CREATE OR REPLACE
PROCEDURE p1(
    l_date IN VARCHAR2)
IS
  l_num      NUMBER;
  v_rpt_date CHAR(21);
type rc
IS
  ref
  CURSOR;
    l_rc rc;
  BEGIN
    OPEN l_rc FOR 'select to_char(report_date, ''YYYY MM Mon''), count(1) as no_of_times
from (
select to_date(:1, ''YYYYMMDD'')+rownum report_date
, mod(rownum,14) mod_result
from all_objects
where 
rownum <= 365)
where mod_result=0
group by to_char(report_date, ''YYYY MM Mon'')
order by to_char(report_date, ''YYYY MM Mon'')' USING l_date ;
    LOOP
      FETCH l_rc INTO v_rpt_date,l_num;
    dbms_output.put_line('date='||v_rpt_date||' -- count='||l_num);
    EXIT
  WHEN l_rc%notfound;
  END LOOP;
END;
/

    OPEN l_rc FOR 'select to_char(report_date, ''YYYY MM Mon''), count(1) as no_of_times
from (
select to_date(:1, ''YYYYMMDD'')+rownum report_date
, mod(rownum,14) mod_result
from all_objects
where 
rownum <= 365)
where mod_result=0
group by to_char(report_date, ''YYYY MM Mon'')
order by to_char(report_date, ''YYYY MM Mon'')' USING l_date ;