PROCEDURE P_CURSOR_FEATURES (dep_name departments.department_name%type)
   IS
   cursor c_emp is
      SELECT   employees.first_name, employees.last_name,
               jobs.job_title
        FROM employees, departments, jobs
        WHERE (departments.department_id = employees.department_id)
        AND   (jobs.job_id = employees.job_id)
        AND   (departments.department_name = dep_name)
        ORDER BY employees.last_name ASC;
   type emp_rec_type is record
       (first_name employees.first_name%type,
        last_name  employees.last_name%type,
        job_title  jobs.job_title%type);
   emp_rec emp_rec_type;

BEGIN
 open c_emp;
 dbms_output.put_line('Department_name:'||' '||
                      dep_name);
 for i in 1..5 loop
    fetch c_emp into emp_rec;
    dbms_output.put_line('First_name: '||
                         emp_rec.first_name||' '||
                         '     Last_name:'||' '||
                         emp_rec.last_name||' '||
                         '     Job_title:'||' '||
                         emp_rec.job_title
                         );
 end loop;
 close c_emp;

END; -- Procedure