How can i use the same cursor in a loop fro multipletimes.

Question

I am using two cursors.One to fetch sites and the other to fetch participants under each site.I am performing some job with that participants data.Now the problem is i am using the 2nd cursor in a loop.So it fetches the data of participants falling under one state.But when it comes to the second state,as the second cursor is already open it is unable to fetch the records.Please help me .How can i use the same cursor in a loop fro multipletimes.
I am sending the code which i have written in When-Button-Pressed-Trigger...
declare
     sid number;
     pid number;
cursor csid is select distinct(site_id) from cyber_ppt;
cursor cpid is select pc_id,st_dt,ed_dt from cyber_ppt where site_id = sid;
     stdt varchar2(10);
     eddt varchar2(10);
     nom number;
     stmonth varchar2(10);
     edmonth varchar2(10);
     cjan number:=0;
     cfeb number:=0;
     cmar number:=0;
     capr number:=0;
     cmay number:=0;
     cjun number:=0;
     cjul number:=0;
     caug number:=0;
     csep number:=0;
     coct number:=0;
     cnov number:=0;
     cdec number:=0;
     i number:=1;
begin
     open csid ;
     loop
     fetch csid into sid;
          exit when csid %notfound;
          message(sid);
     open cpid;
     loop
     fetch cpid into pid,stdt,eddt ;
     exit when cpid %notfound;
     message(sid||'-'||pid);
     stmonth:=substr(stdt,4,3);
     edmonth:=substr(eddt,4,3);
     nom:= months_between(eddt,stdt);
while i <= round(nom)
     loop
     stmonth:=substr(stdt,4,3);
if stmonth='JAN' then
          cjan:=cjan+1;
elsif stmonth='FEB' then
          cfeb:=cfeb+1;
elsif stmonth='MAR' then
          cmar:=cmar+1;
elsif stmonth='APR' then
          capr:=capr+1;
elsif stmonth='MAY' then
          cmay:=cmay+1;
elsif stmonth='JUN' then
          cjun:=cjun+1;
elsif stmonth ='JUL' then
          cjul:=cjul+1;
elsif stmonth ='AUG' then
          caug:=caug+1;
elsif stmonth ='SEP' then
          csep:=csep+1;
elsif stmonth ='OCT' then
          coct:=coct+1;
elsif stmonth ='NOV' then
          cnov:=cnov+1;
elsif stmonth ='DEC' then
          cdec:=cdec+1;
end if;
     stdt:=add_months(stdt,1);
     i:=i+1;
     end loop;
     end loop;
     end loop;
     end;
     

Answer 1

try this /* untested */
DECLARE
sid           NUMBER;
pid           NUMBER;
CURSOR csid IS SELECT DISTINCT(site_id) FROM cyber_ppt;
CURSOR cpid(nSid NUMBER) is SELECT pc_id,st_dt,ed_dt FROM cyber_ppt WHERE site_id = nSid;
stdt        VARCHAR2(10);
eddt        VARCHAR2(10);
nom         NUMBER;
stmonth     VARCHAR2(10);
edmonth     VARCHAR2(10);
cjan         NUMBER:=0;
cfeb         NUMBER:=0;
cmar         NUMBER:=0;
capr         NUMBER:=0;
cmay         NUMBER:=0;
cjun         NUMBER:=0;
cjul         NUMBER:=0;
caug         NUMBER:=0;
csep         NUMBER:=0;
coct         NUMBER:=0;
cnov         NUMBER:=0;
cdec         NUMBER:=0;
i            NUMBER:=1;
BEGIN
FOR rec IN csid
LOOP
                  sid := rec.csid;
FOR cRec IN cpid(sid)
LOOP
                 pid := cRec.pc_id;
                 stdt := cRec.st_dt;
                 eddt := cRec.ed_dt;
stmonth:=  SUBSTR(stdt,4,3);
edmonth:= SUBSTR(eddt,4,3);
nom:= months_between(eddt,stdt);
WHILE i <= round(nom)
LOOP
          stmonth := SUBSTR(stdt,4,3);
IF stmonth='JAN'
THEN
         cjan:=cjan+1;
ELSIF stmonth='FEB' THEN
         cfeb:=cfeb+1;
ELSIF stmonth='MAR' THEN
          cmar:=cmar+1;
ELSIF stmonth='APR' THEN
          capr:=capr+1;
ELSIF stmonth='MAY' THEN
          cmay:=cmay+1;
ELSIF stmonth='JUN' THEN
          cjun:=cjun+1;
ELSIF stmonth ='JUL' THEN
          cjul:=cjul+1;
ELSIF stmonth ='AUG' THEN
          caug:=caug+1;
ELSIF stmonth ='SEP' THEN
          csep:=csep+1;
ELSIF stmonth ='OCT' THEN
          coct:=coct+1;
ELSIF stmonth ='NOV' THEN
          cnov:=cnov+1;
ELSIF stmonth ='DEC' THEN
          cdec:=cdec+1;
END IF;
         stdt:=add_months(stdt,1);
         i:=i+1;
END LOOP;
END LOOP;
END LOOP;
END;