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;