Implicit cursor
Begin
Update try set score = 60 Where course No. = 'c008 'and score <60;
If SQL % notfound then
Dbms_output.put_line ('there is no score below 60! ');
End if;
End;
/
-- Use of cursor Variables
Declare
Type cursor_type is ref cursor;
Stu_cursor cursor_type;
V_stu student basic information % rowtype;
Notfound Boolean;
Begin
Open stu_cursor
Select * from student basic information where gender = 'female ';
Loop
Fetch stu_cursor into v_stu;
Notfound: = stu_cursor % notfound;
Exit when notfound;
Dbms_output.put_line (v_stu. Student ID | ''| v_stu. Name |'' | v_stu. Gender | ''| v_stu. Ethnicity );
End loop;
Close stu_cursor;
Open stu_cursor
Select * from student basic information where gender = 'male ';
Loop
Fetch stu_cursor into v_stu;
Notfound: = stu_cursor % notfound;
Exit when notfound;
Dbms_output.put_line (v_stu. Student ID | ''| v_stu. Name |'' | v_stu. Gender | ''| v_stu. Ethnicity );
End loop;
Close stu_cursor;
End;