Create a Multiple Files using PL-SQL

Question

Hi Experts,
I have a table which contains 360 records and want to create multiple files with each file containing 12 records.
I tried to use the below code, however was unsuccessfull..
Please help!!!!
DECLARE
   num      NUMBER             := 1;
   f_file   UTL_FILE.file_type;
   row_sm   NUMBER             := 0.00;
CURSOR c_cur
   IS
      SELECT   customer_key, all_columns_concat
          FROM demo;
c_rec    c_cur%ROWTYPE;
BEGIN
   OPEN c_cur;
   LOOP
      FETCH c_cur
       INTO c_rec;
     EXIT WHEN c_cur%NOTFOUND;
      WHILE num = c_rec.file_num
      LOOP
         f_file := UTL_FILE.fopen ('DM_DIR', 'FILE_' || num, 'w', 3267);
         num := num + 1;
      END LOOP;
      UTL_FILE.put_line (f_file, c_rec.all_columns_concat);
      row_sm := c_rec.sum_row + row_sm;
   END LOOP;
   UTL_FILE.fclose (f_file);
  CLOSE c_cur;
END;
Regards,
RaviR.

Answer 1

Thanks Ramin,
Your Code really helped. I am now not getting no errors and files are also being created. However, if I replace the UTL_FILE with DBMS_OUTPUT, I get below output. In your code i replaced 12 with 3. Hence its dividing after 3 rows. (with 1st row duplicated)
Output
1
1
2
3
========================================
4
4
5
6
========================================
7
7
8
9
========================================
10
10
11
12
========================================
13
13
14
15
========================================
16
16
Now my concern is that i my table I have a flag which determines the seperation...
Column1
File_Num
1
1
2
1
3
1
4
2
5
2
6
2
7
3
8
3
9
3
10
3
11
3
Hence if the file_Num is 1 it will go to File1, file_num=2 will be written to File2 and so on.
Please help me to get this logic.
Thanks in advance.
Regards,
RaviR