oracle 函数 和 游标的使用列子

Create Or Replace Function T_JC_ZFCG_getwpStr(sidin In Varchar2,cgfsin In Varchar2) Return Varchar2
  Is
  v_wp_str Varchar2(4000);
  Cursor mycursor Is Select * From T_YW_ZFCG_WP Where sid=sidin And cgfs=cgfsin;
  my_record mycursor%Rowtype;
  Begin
       Open mycursor;
       If mycursor%Isopen Then
          Loop --循环获取记录集
           Fetch mycursor Into my_record; --获取游标中的记录
               If mycursor%Found Then  --游标的found属性判断是否有记录
                   dbms_output.put_line('*****');
                  If v_wp_str Is Null Then
                     v_wp_str:=my_record.wpmc;
                  Else
                      v_wp_str:=v_wp_str||','||my_record.wpmc;
                  End If;
               Else
                  Exit;
               End If;
         End Loop;
      Else
       dbms_output.put_line('游标没有打开');
      End If;
      Close mycursor;
      Return v_wp_str;
  End;