WHEN-BUTTON-PRESSED
Go_Block('Employees');

Declare

Cursor EmpCur Is 

Select * From Employees
where  Department_id=:Departments.Department_Id;

Begin
       First_Record;
for rec in empCur loop
	:Employee_ID:=rec.Employee_ID;
	:First_Name:=rec.First_Name;
	:Last_Name:=rec.Last_Name;
	:Email:=rec.Email;
	:Phone_Number:=rec.Phone_Number;
	:Hire_Date:=rec.Hire_Date;
	:Job_ID:=rec.Job_ID;
	:Salary:=rec.Salary;
	:Commission_Pct:=rec.Commission_Pct;
	:Manager_ID:=rec.Manager_ID;
	:Employees.Department_ID:=rec.Department_ID;
	:Status:=rec.Status;
  
        Create_Record;
        end loop;

End;