Reading files from different directories and exceuting them

Question

D:\>cd PROC_PKG_FUNC
mkdir FUNCTIONS
mkdir PACKAGES
mkdir PACKAGES_BODY
mkdir PROCEDURES
mkdir TYPES
mkdir TYPES_BODY
SQL> create directory FUNCTIONS as 'D:\PROC_PKG_FUNC\FUNCTIONS';
Directory created.
SQL> create directory PACKAGES as 'D:\PROC_PKG_FUNC\PACKAGES';
Directory created.
SQL> create directory PROCEDURES as 'D:\PROC_PKG_FUNC\PROCEDURES';
Directory created.
SQL> create directory PACKAGES_BODY as 'D:\PROC_PKG_FUNC\PACKAGES_BODY';
Directory created.
SQL> create directory TYPES as 'D:\PROC_PKG_FUNC\TYPES';
Directory created.
SQL> create directory TYPES_BODY as 'D:\PROC_PKG_FUNC\TYPES_BODY';
Directory created.
suppose,
there is a D:\PROC_PKG_FUNC directory in my local machine where the database server exists.
And in that directory there are different directories like FUNCTIONS,PACKAGES,PACKAGES_BODY,PROCEDURES,TYPES,TYPES_BODY, now I've created all the remote schemas obejcts in these folders using utl_file, with the help of the following package
SQL> CREATE OR REPLACE PROCEDURE Get_Db_Ddl_Scripts AS
2 v_file Utl_File.FILE_TYPE;
3 v_file_dir VARCHAR2(50);
4 i_first_line NUMBER := 1;
5 BEGIN
6
7 v_file_dir := 'PROC_PKG_FUNC';
8
9 FOR REC_OBJ IN
10 (SELECT DISTINCT NAME,TYPE,DECODE(TYPE,'FUNCTION','FUNCTIONS','PACKAGE','PA
CKAGES','PACKAGE BODY','PACKAGES_BODY','PROCEDURE','PROCEDURES','TYPE','TYPES','
TYPE BODY','TYPES_BODY') v_file_dir
11 FROM ALL_SOURCE@FRISKDEVI41B_ORCL WHERE OWNER='FRISKDEVI41B'
12 AND TYPE IN ('FUNCTION, PROCEDURE','PACKAGE','PACKAGE BODY','TYPE'))
13 LOOP
14 v_file := Utl_File.FOPEN(location => REC_OBJ.v_file_dir,
15 filename => REC_OBJ.NAME || '.sql',
16 open_mode => 'w',
17 max_linesize => 32767);
18 i_first_line := 1;
19 FOR REC IN (SELECT TEXT FROM ALL_SOURCE@FRISKDEVI41B_ORCL WHERE NAME = REC_
OBJ.NAME AND TYPE=REC_OBJ.TYPE AND OWNER='FRISKDEVI41B' ORDER BY LINE)
20 LOOP
21 IF i_first_line = 1 THEN
22 Utl_File.PUT_LINE(v_file,'CREATE OR REPLACE ' || REPLACE(REC.TEXT,CHR(10),N
ULL));
23 ELSE Utl_File.PUT_LINE(v_file, REPLACE(REC.TEXT,CHR(10),NULL));
24 END IF;
25 i_first_line := i_first_line + 1;
26 END LOOP;
27 Utl_File.FCLOSE(v_file);
28
29 END LOOP;
30
31 END;
32 /
Procedure created.
SQL>exec Get_Db_Ddl_Scripts ;
PL/SQL procedure successfully completed.
Thus the files are created in the location.
now what i want to do is i want to read each file and run in my current schema to create these objects in my local scehma ,is that possible? Help required._

Answer 1

ORCHYP wrote:
once these files are written in respective folders, you can open them with utl_file('read') in current schema and very well you can execute them.
Try it onceTry it as many times as you like, you won't execute the files with utl_file, that's for sure. ?:|
Using something like DBMS_SCHEDULER you could issue a one off job for each script, as that package can call o/s commands.
However, what's the point?
You may as well, in the code above, just build up your DDL commands or whatever inside your code and, rather than write them out to scripts, use the EXECUTE IMMEDIATE command to execute the DDL against the database.
Of course may not be the best thing to be doing, but we have very little information about what it is that is trying to be achieved, and no reason given why all the functions, packages etc. aren't just put together in a single script that is executed from the command line in the first place. Why try and write PL/SQL to do it?