Dynamic pl/sql to fetch data from production server

Question

Hi,
I need to create a dynamic pl/sql program to fetch all the packages from the production server and store them on my local machine in different files.
Thanks in advance.

Answer 1

Hi,
I am running this procedure and not getting anything in the- 'Report_Out2.txt file....
Have a look..
create or replace
PROCEDURE extract_file IS
vclob CLOB;
getClob CLOB;
vstart NUMBER := 1;
bytelen NUMBER := 32767;
len NUMBER;
my_vr RAW(32767);
x NUMBER;
l_output utl_file.file_type;
BEGIN
-- define output directory
l_output := utl_file.fopen('LOG_FILES', 'Report_Out2.txt','wb', 32767);
vstart := 1;
bytelen := 32767;
-- get length of clob
for rec in (select owner, object_name, object_type
from all_objects
where object_type = 'PACKAGE'
and owner = 'ABC')
loop
dbms_output.put_line('data entering');
vclob := dbms_metadata.get_ddl(rec.object_type, rec.object_name, rec.owner);
x := dbms_lob.getlength(vclob);
dbms_output.put_line('data exiting');
end loop;
-- save clob length
len := x;
dbms_output.put_line('value assign');
-- if small enough for a single write
IF len < 32767 THEN
dbms_output.put_line('data in if');
utl_file.putf(l_output,substr(vclob,1,100));
dbms_output.put_line('data in file');
--utl_file.fflush(l_output);+
-- write in pieces
ELSE
dbms_output.put_line('data in else');
vstart := 1;
WHILE vstart < len and bytelen > 0
LOOP
dbms_lob.read(vclob,bytelen,vstart,my_vr);
utl_file.put_raw(l_output,my_vr);
--utl_file.fflush(l_output);+
-- set the start position for the next cut
vstart := vstart bytelen;+
-- set the end position if less than 32000 bytes
x := x - bytelen;
IF x < 32767 THEN
bytelen := x;
END IF;
utl_file.fclose(l_output);
END LOOP;
END IF;
EXCEPTION
WHEN no_data_found then
dbms_output.put_line('null data');
WHEN others then
dbms_output.put_line('Uncaught exception');
END extract_file;
The proc is compiling without any errors, but when im running it gives:
Connecting to the database XYZ
data entering
data exiting
value assign
data in if
Uncaught exception
Process exited.
Disconnecting from the database XYZ
What could be the reason for the above condition??
Edited by: user9963922 on May 29, 2009 2:58 AM