pl_sql_type_cursor.sql

declare
  CURSOR x(g varchar2 ) is
  select cust_first_name,cust_last_name,cust_email,income_level from customers
  where gender=g;
  cust_row x %rowtype;
begin
   --open
   open x('F');
   --fetch (loop)
   LOOP
      fetch x into cust_row;
      exit when x %NOTFOUND OR x%rowcount > 10;
      dbms_output.put_line(x%rowcount || ' '||
      cust_row.cust_first_name || ' '||
      cust_row.income_level );
   END LOOP;   
   --close
   close x;
end;