DECLARE 
  TYPE Roster IS TABLE OF VARCHAR2(15);  -- nested table type 
 
  -- nested table variable initialized with constructor: 
 
  names Roster := Roster('D Caruso', 'J Hamil', 'D Piro', 'R Singh'); 
 
  PROCEDURE print_names (heading VARCHAR2) IS 
  BEGIN 
    DBMS_OUTPUT.PUT_LINE(heading); 
 
    FOR i IN names.FIRST .. names.LAST LOOP  -- For first to last element 
      DBMS_OUTPUT.PUT_LINE(names(i));  
    END LOOP; 
 
    DBMS_OUTPUT.PUT_LINE('---');  
  END; 
   
BEGIN  
  print_names('Initial Values:'); 
 
  names(3) := 'P Perez';  -- Change value of one element 
  print_names('Current Values:'); 
 
  names := Roster('A Jansen', 'B Gupta');  -- Change entire table 
  print_names('Current Values:'); 
END;