PROCEDURE P_RECORD
 (v_employee_id IN number)
--  (v_employee_id IN employees.employee_id%TYPE)
   IS
   type emp_record_type IS RECORD
     (last_name varchar2(25),
      job_id    varchar2(10),
      salary    number(8,2));
      
   v_last_name varchar2(100);
   v_job_id    varchar2(10);
   v_salary    number(8,2);

   emp_rec emp_record_type;

BEGIN
  SELECT employees.last_name,
    employees.job_id,
    employees.salary
  INTO
    emp_rec
  FROM
    employees
  WHERE
    employees.employee_id = v_employee_id;
    
  dbms_output.put_line(emp_rec.last_name||' '||
                       emp_rec.salary || ' ' ||
                       emp_rec.job_id
                      );
END; -- Procedure