在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;
/