Corsor explicit

pada kali ini, saya menggunakan user default "hr" pada oracle..

rumusnya adalah

declare
......
......
......
cursor [nama_cursor] is [query] ;
................................

begin
...................
open [nama_cursor] ;
......................
fetch [nama_cursor] into [variable_deklarasi];
......................
......................
close [nama_cursor] ;
end;
/

contoh cursor explicit yang saya buat :


declare
nama employees.first_name%type;
gaji employees.salary%type;
cari_dept varchar(30);


cursor mail2 is select first_name , salary
from employees join departments on
employees.department_id = departments.department_id
where department_name = cari_dept;

begin
cari_dept := '&Cari_nama_dept';

open mail2;

loop exit when mail2%notfound;

fetch mail2 into nama , gaji;
dbms_output.put_line('Nama Dept : '||nama);
dbms_output.put_line('Gaji: '||gaji);

end loop;

close mail2;
end;
/

pada cursor explicit ini berfungsi untuk menampilkan nama department dan gaji di departemen tersebut yang sebelumnya di imputkan nama department yang akan di cari ,,