Help in solving this pl/sql block

Question

Hi
Could some one help me in solving my problem
i want some data to be extracted by a sql its not fetching it so i prefered to write a pl/sql block for it ...
the block is as follows
begin
cursor opunit is
select code from fmg_operating_units;
cursor pak_code is --- those are the 3 codes which i require
select 'BNL' from dual
union select 'HNA' from dual
union select 'HNL' from dual;
cursor data1(opunit,pak_code) is
select mas.name ,
cl.id ,
opup.oun_code ,
fmg_phone_no(mas.id),
clpk.pak_code ,
clpk.id
from fmg_op_unit_positions opup,
fmg_clients cl,
fmg_client_paks clpk,
fmg_masters mas,
fmg_policies po,
fmg_policy_items pi
where mas.id=cl.mas_id
and cl.id=clpk.cli_id
and clpk.oup_id=opup.id
and opup.oun_code = opunit
and clpk.id=po.ctp_id
and po.id=pi.pol_id
and pi.current_status='AC'
and clpk.pak_code = pak_code;
loop opunits
loop pak_code
open data1
fetch data1(opunit,pak_code) ;
end loop;
end loop;
could some one help me in extracting the data and put it on the CSV file ...
i would be very thank full to you if some one take some time to full fill this task..
thanks in advance

Answer 1

Declare
     cursor opunit is
          select distinct code
          from fmg_operating_units;
     cursor pak_code is --- those are the 3 codes which i require
          select 'BNL' codes from dual
          union
          select 'HNA' codes from dual
          union
          select 'HNL' codes from dual;
     cursor data1(opunit,pak_code) is
          select mas.name ,
               cl.id ,
               opup.oun_code ,
               fmg_phone_no(mas.id),
               clpk.pak_code ,
               clpk.id
          from fmg_op_unit_positions opup,
          fmg_clients cl,
               fmg_client_paks clpk,
               fmg_masters mas,
               fmg_policies po,
               fmg_policy_items pi
          where mas.id     =     cl.mas_id
          and cl.id     =     clpk.cli_id
          and clpk.oup_id =     opup.id
          and opup.oun_code =      opunit
          and clpk.id     =     po.ctp_id
          and po.id     =     pi.pol_id
          and pi.current_status=     'AC'
          and clpk.pak_code =      pak_code;
begin
     FOR opunits IN opunit LOOP
          FOR pak_codes IN pak_code LOOP
               OPEN data1;     
                    fetch data1(opunits.code,pak_codes.codes) ;
                    EXIT WHEN data1%NOTFOUND;
                    < Rest of your code here > -- You can insert processed data into a temp table &
                                   -- extract data from that table afterwards via select statement
                                   -- & saving the data in a .cvs file extension.
               CLOSE data1;
          END LOOP;
     END LOOP;
     <Some more code here if applicable>
EXCEPTION
     <Exception handling code section here>
END;