Need to create multiple files in CSV through UTL_File package

Question

I have to extract data from table from csv format and maximum number should be 10 each file.how to do this through UTL_File utilities.
i am putting the code...any input would be apprecaited...
CREATE OR REPLACE PACKAGE BODY TEST
AS
PROCEDURE main_test(
errbuff OUT VARCHAR2,
retcode OUT VARCHAR2
IS
-- Variables
lv_file_handle UTL_FILE.FILE_TYPE;
lv_file_name_txt VARCHAR2(25);
lv_file_location_txt VARCHAR2(100) :='/dv1/gfp/ora01/dv1gfpcomn/temp';
v_error_code NUMBER;
v_error_text VARCHAR2(200);
lv_cursor_rowcnt NUMBER := 0;
lv_row_data VARCHAR2(32000);
lv_row_tran_data VARCHAR2(32000);
lv_transaction_number VARCHAR2(1000);
lv_row_head_data1 VARCHAR2(32000);
lv_row_trn_data1 VARCHAR2(32000);
lv_row_data1 VARCHAR2(32000);
lv_period VARCHAR2(100);
row_cnt number := 0;
c integer;
max_rows number;
-- Cursors
CURSOR cur_period IS
select
user_name name,
description description ,
email_address email,
start_date st_date,
end_date end_date
from fnd_user
WHERE ROWNUM <51
ORDER BY 1,4 desc;
BEGIN
lv_file_name_txt := 'test'||TO_CHAR (SYSDATE, 'DDMMYYYY')||'.txn';
lv_file_handle := UTL_FILE.FOPEN(lv_file_location_txt, lv_file_name_txt, 'w');
--code modification here
FOR cur_rec IN cur_period
LOOP
lv_row_data := NULL;
lv_cursor_rowcnt := lv_cursor_rowcnt + 1;
lv_row_data := rpad(nvl(substr(cur_rec.name,1,10),'') ,10,' ') || '+'
|| rpad(nvl(substr(cur_rec.description,1,10),'') ,10,' ') || '+'
|| rpad(nvl(substr(cur_rec.email,1,15),'') ,15,' ') || '+'
|| rpad(nvl(substr( cur_rec.st_date,1,10),'') ,10,' ') || '+'
|| rpad(nvl(substr( cur_rec.end_date ,1,10),'') ,10,' ') ;
END LOOP;
IF lv_cursor_rowcnt = 0 THEN
fnd_log.put_line ('No data found');
END IF;
UTL_FILE.FCLOSE(lv_file_handle);
EXCEPTION
WHEN OTHERS
THEN
v_error_code := SQLCODE;
v_error_text := SQLERRM;
retcode := 2;
fnd_log.put_line ('s-Error :' || v_error_code || '- ' || v_error_text );
fnd_log.put_line (SQLERRM);
UTL_FILE.FCLOSE_ALL();
END;
END TEST;
show err
---

Answer 1

Hi,
and maximum number should be 10 each file.utilities. I could not understand the above line. If you want to put 10 rows in one file , next 10 rows in another file and so on ......
There are two approaches.
1. Simple one is store all records in one file using UTL_FILE and then use unix
split utility to break 10 lines for each file.
2. Store all files name is an array ( VARRAY or Associative Arrays) .
(i) Fetch file name form Array
(ii) Open a File
(iii) Store 10 rows in File
(iv) Close file. Go to step 1.
Regards