Maximum number of lines in UTL_FILE?

Question

I am using the UTL_FILE package to dump the content of a package to a file. But I find that for packages that are large, the file is getting truncated when written out (it breaks at around 1680 lines or so).
I confirmed that there is no problem with the read part, by doing a dbms_output.put_line for that particular package.
Is there any setting on the maximum number of lines that can be written out here? I am using version 8i or Oracle. Thanks.
Regards,
Srini

Answer 1

OK, here is my code: thank you.
CREATE OR REPLACE PACKAGE BODY Code_Dump AS
PROCEDURE write_nonpackage_to_file(fname IN VARCHAR2) IS
fileHandler UTL_FILE.FILE_TYPE;
fileName VARCHAR2(400);
CURSOR c_file_content IS SELECT * FROM user_source WHERE name = fname AND NOT (type like '%PACKAGE%') order by line;
BEGIN
fileHandler := UTL_FILE.FOPEN('/users/mydir/tmp', fname || '.sql', 'w',1022000);
UTL_FILE.PUTF(fileHandler, 'CREATE OR REPLACE ');
<<file_writing_loop>>
FOR each_record IN c_file_content LOOP
UTL_FILE.PUT(fileHandler, each_record.text);
END LOOP file_writing;
UTL_FILE.FCLOSE(fileHandler);
END write_nonpackage_to_file;
PROCEDURE write_package_to_file(fname IN VARCHAR2) IS
fileHandler UTL_FILE.FILE_TYPE;
fileName VARCHAR2(400);
rec_type VARCHAR2(40);
CURSOR c_spec_file_content IS SELECT * FROM user_source WHERE name = fname AND type LIKE 'PACKAGE' order by line;
CURSOR c_body_file_content IS SELECT * FROM user_source WHERE name = fname AND type LIKE 'PACKAGE BODY' order by line;
BEGIN
dbms_output.enable(10000000);
fileHandler := UTL_FILE.FOPEN('/users/mydir/tmp', fname || '.sql', 'w',1022000);
UTL_FILE.PUTF(fileHandler, 'CREATE OR REPLACE ');
<<file_spec_loop>>
FOR each_record IN c_spec_file_content LOOP
UTL_FILE.PUTF(fileHandler, each_record.text);
END LOOP file_spec_loop;
UTL_FILE.PUTF(fileHandler, '/\n');
<<file_body_loop>>
FOR each_record IN c_body_file_content LOOP
UTL_FILE.PUTF(fileHandler, each_record.text);
END LOOP file_body_loop;
UTL_FILE.FCLOSE(fileHandler);
END write_package_to_file;
PROCEDURE dump_code (p_dump_what IN VARCHAR2) IS
CURSOR c_all_code IS
SELECT DISTINCT name, type FROM user_source;
my_copy VARCHAR2(40);
BEGIN
my_copy := p_dump_what;
<<each_file>>
FOR each_record IN c_all_code LOOP
IF each_record.type = my_copy THEN
dbms_output.put('parameter: ' || my_copy ||' ');
dbms_output.put_line('record type: ' || each_record.type);
END IF;
IF each_record.type <> 'PACKAGE' AND each_record.type <> 'PACKAGE BODY' AND each_record.type = my_copy THEN
dbms_output.put_line(each_record.name);
write_nonpackage_to_file(each_record.name);
END IF;
IF each_record.type = 'PACKAGE' AND each_record.type = my_copy THEN
write_package_to_file(each_record.name);
END IF;
END LOOP each_file;
END;
END Code_Dump;