pl_sql_type_table_of_cursors.sql

declare
  CURSOR x(g varchar2 ) is
  select customer_id, cust_first_name,cust_last_name,cust_email,income_level from customers
  where gender=g;
  cust_row x %rowtype;
  TYPE table_type is table of x %rowtype index by BINARY_INTEGER;
  cust_arr table_type;
begin
   --open
   open x('F');
   --fetch (loop)
   LOOP
      fetch x into cust_row;
      exit when x %NOTFOUND OR x%rowcount > 10;
      cust_arr(x%rowcount) := cust_row;
   END LOOP;   
   for j in 1..x%rowcount loop
      dbms_output.put_line( cust_arr(j).cust_first_name  ) ;
   end loop;
   --close
   close x;
end;