在PL/SQL中借助JAVA调用可执行程序的例子

/*replace the username*/
call dbms_java.grant_permission( 'FRGT_UAT', 'SYS:java.io.FilePermission', '<<ALL FILES>>', 'execute' );

create or replace java source named "JTns"
as
import java.io.InputStream;
import java.io.InputStreamReader;
import java.io.IOException;
public class JTns {
public static String getfing(String seed){
/* Note: when this error occured
ORA-29532: Java call terminated by uncaught Java exception: java.lang.NullPointerException
just place the full path of the exe
ex:
String command = "/home/oracle/product/9.2/bin/tnsping " + seed;
*/
String command = "tnsping " + seed;
String pingres = null;
Process process;
InputStreamReader ir = null;
char c[] = new char[1024];
try{
process = Runtime.getRuntime().exec(command);
ir = new InputStreamReader(process.getInputStream());
while(ir.read(c, 0, 1024) != -1){
pingres = new String(c);
}
ir.close();
} catch(IOException io){ };
if (pingres == null) pingres = "Cant Find TNSPING";
return pingres.trim();
}
};
/

create or replace function GetTnsPing(sid varchar2) return varchar2
as language java
name 'JTns.getfing(java.lang.String) return java.lang.String';
/

create or replace function isSeedUp(sid varchar2) return boolean
as
stat boolean := false;
res varchar2(32767) := gettnsping(sid);
begin
stat := case
when instr(res,'OK') > 0 then true
else false
end;
return stat;
end;
/