Oracle cursor for simple use

Code
Create   Or   Replace   Function Getroleuser
(
Proleid admin_list.roles_id % Type
)
Return   Varchar2   -- Function return type
Is
Userlists Varchar2 ( 4000 );
Cursor Mycur Is
Select Admin_list.admin_name Into Userlists From Admin_list Where Admin_list.roles_id = Proleid;
Ccrec mycur % Rowtype;
Begin
Begin
-- Open cursor
Open Mycur;
-- Loop
Loop
-- Extract a row of data to ccrec
Fetch Mycur Into Ccrec;
-- Determine whether to extract the value. Exit if the value is not obtained.
-- The value CC % notfound is false.
-- CC % notfound cannot be obtained. The value is true.
Exit   When Mycur % Notfound;
Userlists: = Userlists | Ccrec. admin_name | ' , ' ;
End Loop;
-- Close cursor
Close Mycur;
End ;

ReturnUserlists;
EndGetroleuser;