Counting rows in a loop

Question

Hi,
I am trying to learn pl/sql and I need some help, please.
I have written a package with a cursor and a loop, which returns a file with some lines.
The last step I have to do is to write something that returns the number of lines produced in the file: i.e, if the loop retuns 356 lines, I have to write something that calculates that figure and returns the result in the last line.
I was told that I need to create a variable and place it somewhere at this point to do the calculation:
END LOOP;
Utl_File.Put(l_Output, 'end of file');
Utl_File.Fclose(l_Output);
I do not quite understand what to do or how to do it, can someone help?
Thanks

Answer 1

<s></s>
DECLARE
   CURSOR your_loop
   IS
      SELECT *
        FROM scott.emp;
   your_counts   INTEGER;
BEGIN
   FOR c IN your_loop
   LOOP
      your_counts := your_loop%ROWCOUNT;
      DBMS_OUTPUT.put_line(to_char(your_counts,'999')||':'||c.ename);
   END LOOP;
   DBMS_OUTPUT.put_line(to_char(your_counts,'999')||' lines written');
END;
1:SMITH
2:ALLEN
3:WARD
4:JONES
5:MARTIN
6:BLAKE
7:CLARK
8:KING
9:TURNER
10:JAMES
11:FORD
12:MILLER
12 lines written
PL/SQL procedure successfully completed.
DECLARE
   CURSOR your_loop
   IS
      SELECT *
        FROM scott.emp;
   your_counts   INTEGER;
BEGIN
   your_counts := 0;
   FOR c IN your_loop
   LOOP
      your_counts := your_counts + 1;
      DBMS_OUTPUT.put_line(to_char(your_counts,'999')||':'||c.ename);
   END LOOP;
   DBMS_OUTPUT.put_line(to_char(your_counts,'999')||' lines written');
END;
1:SMITH
2:ALLEN
3:WARD
4:JONES
5:MARTIN
6:BLAKE
7:CLARK
8:KING
9:TURNER
10:JAMES
11:FORD
12:MILLER
12 lines written
PL/SQL procedure successfully completed.