DECLARE 
  TYPE name_rec IS RECORD ( 
    first  hr.employees.first_name%TYPE, 
    last   hr.employees.last_name%TYPE 
  ); 
 
  TYPE contact IS RECORD ( 
    name  name_rec,                    -- nested record 
    phone hr.employees.phone_number%TYPE 
  ); 
 
  friend contact; 
BEGIN 
  friend.name.first := 'John'; 
  friend.name.last := 'Smith'; 
  friend.phone := '1-650-555-1234'; 
   
  DBMS_OUTPUT.PUT_LINE ( 
    friend.name.first  || ' ' || 
    friend.name.last   || ', ' || 
    friend.phone 
  ); 
END;