create or replace
procedure common_names
is
-- define a varray type to store upto 25 rows from the empx table
TYPE empArray IS VARRAY(25) OF empx%rowtype; 
-- declare an empty instance of the varray type
empList empArray := empArray();

-- define a cursor to hold multiple (all) rows from the emp table
cursor empCur is select * from empx;

vCount number(2):=1;
--declare and initialise counter for varray

begin

empList.extend(25); -- extend the varray to hold 25 elements

-- declare a cursor for loop to retrieve all the rows from the cursor
for empRec in empcur loop -- empRec is a record based on the cursor type

empList(vCount) := empRec; -- put an empRec into the varray at the index specified
dbms_output.put_line(empList(vCount).ename); -- print out the employees name
vCount := vcount +1; -- increment vcount
end loop;

end;