Invalid cursor. dont understand why

Question

i keep getting invalid cursor near the fetch. i dont understand why. appreicate any help.
declare
  -- Local variables here
  o_errorcode NUMBER;
  o_errortext VARCHAR2(1000);
  i_CustomerLoop NBK.Pkgcommon.T_CUSTOMERLOOPTYPE;
  o_loopid number;
  FUNCTION createCustomerLoopObj(in_Loopid  IN NUMBER,
                                 inTestCAse IN VARCHAR2)
    RETURN NBK.Pkgcommon.T_CUSTOMERLOOPTYPE IS
    J_CustomerLoop NBK.Pkgcommon.T_CUSTOMERLOOPTYPE;
    co_clli        open_interface.WDN_segment.co_clli%type;
    termsysid      open_interface.WDN_segment.termsysid%type;
    cable          open_interface.WDN_segment.cable%type;
    pair           open_interface.WDN_segment.low_pair%type;
    v_cntLoops     number := 0;
    CURSOR v_CustomerLoops IS
      select seg_f1.termsysid,
             seg_f1.cable,
             round((seg_f1.low_pair + seg_f1.high_pair) / 2),
             seg_f1.co_clli
        FROM open_interface.WDN_segment                  seg_f1,
             open_interface.WDN_loop_segment_association assoc_f1,
             open_interface.WDN_potential_loop_makeup    loop_f1
       where seg_f1.segment_id = assoc_f1.segment_id
         and assoc_f1.loopid = loop_f1.loopid
         and loop_f1.loopid = in_Loopid -- 44441549
       order by assoc_f1.segment_number asc;
  BEGIN
    loop
      fetch v_CustomerLoops
        into termsysid, cable, pair, co_clli;
      exit when v_CustomerLoops%notfound;
      begin
        v_cntLoops := v_cntLoops + 1;
        J_CustomerLoop(v_cntLoops).Cable := cable;
        J_CustomerLoop(v_cntLoops).Pair := pair;     
        J_CustomerLoop(v_cntLoops).CentralOfficeName := co_clli;
        J_CustomerLoop(v_cntLoops).TerminalDeviceID := termsysid;
      exception
        WHEN no_data_found THEN
          dbms_output.put_line('no data found loopid ' || in_Loopid ||
                               ' TestCASE' || inTestCAse);
        WHEN OTHERS THEN
          dbms_output.put_line('OTHER ERROR  loopid ' || in_Loopid || ' ' ||
                               SQLERRM || SQLCODE || 'TestCASE' ||
                               inTestCAse);
      end;
    end loop;
    close v_CustomerLoops;
    RETURN J_CustomerLoop;
  end createCustomerLoopObj;
begin
  i_CustomerLoop := createCustomerLoopObj(44441549, 'tc');
end;

Answer 1

10 Points to you. ;)
Regards.
Satyaki De.