各位大哥：关于fetch游标取值问题，急！！！

我在oracle 中，取游标值时，不能识别fetch命令，请教各位。CREATE OR REPLACE PACKAGE ModuleLogin AS
 TYPE cur is REF CURSOR;
 --FUNCTION RetuWorkTeamNo (cUserNo  VARCHAR2) RETURN ModuleLogin.cur;
 PROCEDURE RetuWorkTeamNo(cUserNo IN varchar2,cWordTeamNo out varchar2);
END ModuleLogin;
/CREATE OR REPLACE PACKAGE BODY ModuleLogin AS
/*
 FUNCTION RetuWorkTeamNo(cUserNo in VARCHAR2) RETURN ModuleLogin.cur IS
     c_temp ModuleLogin.cur;
     strSql varchar2(100);
 BEGIN
     strSql := 'select cWorkTeamNo from smUserPrivilege where  bActive=1 AND cUserNo=(select cUserNo from smUserProfile where cUserNo=''' || cUserNo || ''' and bActive=1)';
     OPEN c_temp FOR strSql; 
     exception
        when others then 
           DBMS_OUTPUT.PUT_LINE('Error .....' || sqlcode || ' : ' || sqlerrm ); 
    RETURN c_temp;
 END RetuWorkTeamNo;
*/
 PROCEDURE RetuWorkTeamNo(cUserNo IN varchar2,cWordTeamNo out varchar2) IS
 
    cursor c_temp(strUserNo smUserPrivilege.cUserNo%TYPE) is select cWorkTeamNo from smUserPrivilege where cUserNo=strUserNo;--c_temp ModuleLogin.cur;
    v_WrokTeamNo smUserPrivilege.cWorkTeamNo%TYPE;
    strSql varchar2(100);
  BEGIN
    DBMS_OUTPUT.PUT_LINE('A=' || cUserNo);
    
     --strSql := 'select cWorkTeamNo from smUserPrivilege where  bActive=1 AND cUserNo=(select cUserNo from smUserProfile where cUserNo=''' || cUserNo || ''' and bActive=1)';
     --strSql := 'select cWorkTeamNo from smUserPrivilege where  bActive=1 AND cUserNo=(select cUserNo from smUserProfile where cUserNo:=wUserNo and bActive=1)';
     --strSql := 'select cWorkTeamNo from smUserPrivilege where  bActive=1';
    
     --OPEN c_temp FOR strSql using cUserNo; 
     OPEN c_temp(cUserNo); 
       fetch  c_temp into v_WorkTeamNo;
       close c_temp; /*
       if v_WorkTeamNo is null then
          RAISE_APPLICATION_ERROR(-2002,'NO RECORD');
       else
         cWrokTeamNo := v_WorkTeamNo;   
       end if
     exception
        when others then 
           DBMS_OUTPUT.PUT_LINE('Error .....' || sqlcode || ' : ' || sqlerrm ); 
      -- cWordTeamNo :='aa';
  */
  END RetuWorkTeamNo;
END ModuleLogin;
/