Java Procedure

Question

--connect as system to grant permisiions to scott
--java classes
connect system/manager@srinivas
begin
dbms_java.grant_permission
('SCOTT',
'java.io.FilePermission',
'h:\oracle\loader_scripts',
'read');
dbms_java.grant_permission
('SCOTT',
'java.io.FilePermission',
'sqlldr.exe',
'execute');
dbms_java.grant_permission
('SCOTT',
'java.lang.RuntimePermission',
'writerFileDescriptor');
end;
-- now connect as scott
connect scott/tiger@srinivas
-- create a temporary table
drop table dir_list;
create table dir_list
(filename varchar2(255))
--create java source
drop java source "DirList";
create or replace
and resolve java source named "DirList"
as
import java.io.*;
import java.sql.*;
public class DirList
public static void getList(String directory)
               throws SQLException
     File path = new File(directory);
     String[] list = path.list();
     String element;
     for (int i=0; i < list.length; i++)
          element = list;
          #sql { insert into dir_list(filename)
          values(:element)
-- create procedure
drop procedure get_dir_list;
create or replace procedure get_dir_list(p_directory in varchar2)
as
language java
name 'DirList.getList( java.lang.String)';
-- execute the proc
exec get_dir_list('h:\oracle\loader_scripts');
-- select the data from dirlist temporary table to make sure that data is there
select * from dir_list;
rem      connect as scott/tiger and then create this java source
create or replace and compile
java source named "Util"
as
import java.io.*;
import java.lang.*;
public class Util extends Object
public static int RunThis(String[] args)
Runtime rt = Runtime.getRuntime();
int rc = -1;
try
               Process p = rt.exec(args[0]);
int bufSize = 4096;
BufferedInputStream bis =
new BufferedInputStream(p.getInputStream(), bufSize);
int len;
byte buffer[]=new byte[bufSize];
               while((len=bis.read(buffer,0,bufSize)) != -1)
               System.out.write(buffer,0,len);
               rc=p.waitFor();
catch (Exception e)
e.printStackTrace();
rc = -1;
finally
return rc;
rem now create a function
connect scott/tiger@srinivas
create or replace function run_cmd(p_cmd in varchar2) return number
as
language java
name 'Util.RunThis(java.lang.String[]) return integer';
rem create this procedure as scott
create or replace procedure Exec_Cmd(p_cmd in varchar2)
as
x number;
v_date_format varchar2(255);
begin
v_date_format:='mon-dd-yyyy hh24:mi:ss';
Execute immediate ' alter session set nls_date_format ='''|| v_date_format||'''';
x:=run_cmd(p_cmd);
if x = 0 then
INSERT INTO TAB_LOAD_FAIL_DETAIL (
                    DATETIME,
                    RESULT,
DISCARD_DIR,
BAD_DIR,
LOG_DIR
VALUES (
sysdate,
'Succeeded',
                    'H:\Oracle\ldr_discard\',
                    'H:\Oracle\ldr_bad\',
'H:\Oracle\ldr_log\'
commit;
elsif x <> 0 then
INSERT INTO TAB_LOAD_FAIL_DETAIL (
                    DATETIME,
                    RESULT,
DISCARD_DIR,
BAD_DIR,
LOG_DIR
VALUES (
sysdate,
'Failed',
                    'H:\Oracle\ldr_discard\',
                    'H:\Oracle\ldr_bad\',
'H:\Oracle\ldr_log\'
commit;
end if;
end;
CREATE OR REPLACE PROCEDURE compare_file_name
as
cursor tab is select table_name from dba_tables where owner =user;
v_file varchar2(255);
v_date_format varchar2(255);
v_cmd_string varchar2(255);
begin
Execute immediate' delete from dir_list';
get_dir_list('H:\Oracle\loader_scripts');
v_date_format:='mon-dd-yyyy hh24:mi:ss';
Execute immediate ' alter session set nls_date_format ='''|| v_date_format||'''';
for tab_rec in tab loop
--dbms_output.put_line(tab_rec.table_name);
for x in (select upper(substr(filename,1,instr(filename,'.')-1)) filename from dir_list)
loop
v_file := x.filename;
if tab_rec.table_name = v_file then
               INSERT INTO TAB_LOAD_DATA_DETAIL
               VALUES ( sysdate,tab_rec.table_name,'H:\Oracle\loader_scripts\'||v_file||'.dat');
               commit;
               dbms_output.put_line(tab_rec.table_name ||' '||v_file||' '||' You Got that');
                    Exec_Cmd(chr(39)||'sqlldr parfile=H:\Oracle\ldr_par_files\'||tab_rec.table_name||'.ctl'||chr(39));
end if;
end loop;
end loop;
end;
EXEC COMPARE_FILE_NAME;
when executed the following errors are observed
================================================
it is failing to execute sql loader with the following messages
EMP EMP You Got that
java.io.IOException
at oracle.aurora.java.lang.OracleProcess.create(OracleProcess.java)
at oracle.aurora.java.lang.OracleProcess.construct(OracleProcess.java)
at java.lang.Runtime.execInternal(Runtime.java)
at java.lang.Runtime.exec(Runtime.java:272)
at java.lang.Runtime.exec(Runtime.java:195)
at java.lang.Runtime.exec(Runtime.java:152)
at Util.RunThis(Util:12)
PL/SQL procedure successfully completed.
===================================
my email id is [email protected]
====================================
help me execute sql loader successfully through this procedure.
thanks for the help in advance.

Answer 1

SQL> create or replace and resolve java source named PrimeClass as
  2 
  3  public class PrimeClass {
  4 
  5   public static boolean isPrime ( int num )
  6    {
  7      boolean prime = true;
  8      int limit = (int) Math.sqrt ( num ); 
  9 
10      for ( int i = 2; i <= limit; i++ )
11      {
12        if ( num % i == 0 )
13        {
14          prime = false;
15         break;
16        }
17      }
18     
19      return prime;
20    }
21   
22    }
23  /
Java created.
SQL> create or replace function myprime (p_str in number) return number as
  2 
  3  language Java name 'PrimeClass.isPrime(int) return int';
  4  /
Function created.
SQL>
SQL> set serveroutput on
SQL>
SQL> declare
  2  l_str  number;
  3  begin
  4  l_str :=  myprime(11);
  5  if l_str=0 then
  6  dbms_output.put_line('number is not prime');
  7  else
  8  dbms_output.put_line('number is prime'); 
  9  end if;
10  end;
11  /
number is prime
PL/SQL procedure successfully completed.