Calling Java from OMB Plus

Question

I have a number of OMB Scripts which import/export etc.. Within this script I capture the password from the user so that I can connect to the repository. I found a new class in the latest java which will mask this password and I want to use this within my TCL Script. From what I've read you should be able to call Java Classes from a TCL Script however it gives me a java.lang.reflect.InvocationTargetException
error. Any help you would be appreciated. (Error at bottom of post)
Thanks
Sean
I've included the Call and the class below.
Within my tcl script
package require java
set t [ java::new finance.ombpass ]
set owbreppass [$t run]
JAVA ombpass.Java
(The Class file ombpass.class in contained in the folder "finance" located under
oracle\product\owb\10204\owb\bin\admin\)
The TCL Source is being called after performing a cd to that directory.
package finance;
import java.io.Console;
public class ombpass{
          public String run() {
               Console cons = System.console();
               char [] pswd = cons.readPassword("Password: ");
               String s = new String(pswd);
               System.out.println(s);
     return s;
ERROR THROWN...
java.lang.reflect.InvocationTargetException
at sun.reflect.NativeMethodAccessorImpl.invoke0(Native Method)
at sun.reflect.NativeMethodAccessorImpl.invoke(NativeMethodAccessorImpl.java:39)
at sun.reflect.DelegatingMethodAccessorImpl.invoke(DelegatingMethodAccessorImpl.java:25)
at java.lang.reflect.Method.invoke(Method.java:324)
at Launcher.main(Launcher.java:167)
Caused by: java.lang.UnsupportedClassVersionError: finance/ombpass (Unsupported major.minor version 50.0)
at java.lang.ClassLoader.defineClass0(Native Method)
at java.lang.ClassLoader.defineClass(ClassLoader.java:539)
at java.security.SecureClassLoader.defineClass(SecureClassLoader.java:123)
at java.net.URLClassLoader.defineClass(URLClassLoader.java:251)
at java.net.URLClassLoader.access$100(URLClassLoader.java:55)
at java.net.URLClassLoader$1.run(URLClassLoader.java:194)
at java.security.AccessController.doPrivileged(Native Method)
at java.net.URLClassLoader.findClass(URLClassLoader.java:187)
at java.lang.ClassLoader.loadClass(ClassLoader.java:289)
at sun.misc.Launcher$AppClassLoader.loadClass(Launcher.java:274)
at java.lang.ClassLoader.loadClass(ClassLoader.java:282)
at java.lang.ClassLoader.loadClass(ClassLoader.java:235)
at java.lang.ClassLoader.loadClassInternal(ClassLoader.java:302)
at java.lang.Class.forName0(Native Method)
at java.lang.Class.forName(Class.java:141)
at tcl.lang.TclClassLoader.loadClass(TclClassLoader.java:148)
at java.lang.ClassLoader.loadClass(ClassLoader.java:235)
at tcl.lang.JavaInvoke.getClassByName(JavaInvoke.java:712)
at tcl.lang.FuncSig.get(FuncSig.java:216)
at tcl.lang.JavaInvoke.newInstance(JavaInvoke.java:67)
at tcl.lang.JavaNewCmd.cmdProc(JavaNewCmd.java:105)
at tcl.lang.Parser.evalObjv(Parser.java:818)
at tcl.lang.Parser.eval2(Parser.java:1221)
at tcl.lang.Parser.evalTokens(Parser.java:1001)
at tcl.lang.Parser.eval2(Parser.java:1208)
at tcl.lang.Procedure.cmdProc(Procedure.java:161)
at tcl.lang.Parser.evalObjv(Parser.java:818)
at tcl.lang.Parser.eval2(Parser.java:1221)
at tcl.lang.Interp.eval(Interp.java:2189)
at tcl.lang.Interp.eval(Interp.java:2273)
at tcl.lang.SwitchCmd.cmdProc(SwitchCmd.java:141)
at tcl.lang.Parser.evalObjv(Parser.java:818)
at tcl.lang.Parser.eval2(Parser.java:1221)
at tcl.lang.Procedure.cmdProc(Procedure.java:161)
at tcl.lang.Parser.evalObjv(Parser.java:818)
at tcl.lang.Parser.eval2(Parser.java:1221)
at tcl.lang.Interp.eval(Interp.java:2189)
at tcl.lang.Interp.evalFile(Interp.java:2368)
at tcl.lang.SourceCmd.cmdProc(SourceCmd.java:75)
at tcl.lang.Parser.evalObjv(Parser.java:818)
at tcl.lang.Parser.eval2(Parser.java:1221)
at tcl.lang.Interp.eval(Interp.java:2189)
at tcl.lang.Interp.eval(Interp.java:2273)
at tcl.lang.Interp.recordAndEval(Interp.java:2328)
at tcl.lang.TclConsoleThread$2.processEvent(TclShell.java:424)
at tcl.lang.Notifier.serviceEvent(Notifier.java:444)
at tcl.lang.Notifier.doOneEvent(Notifier.java:585)
at tcl.lang.TclShell.run(TclShell.java:170)
at tcl.lang.TclShell.run(TclShell.java:68)
at oracle.owb.scripting.OMBShell.main(OMBShell.java:38)
... 5 more
java.lang.reflect.InvocationTargetException

Answer 1

Besides "package require java", you also need to "java import" your class into TCL. For example, this is how I implemented my OMB-SQL package:
package require java
# PVCS Version Information
#/* $Workfile:   omb_sql_library.tcl  $ $Revision:   2.3  $ */
#/* $Author:   michael.broughton  $
#/* $Date:   16 Dec 2008 10:10:36  $ */
proc oracleConnect { serverName databaseName portNumber username password } {
   # import required classes
   java::import java.sql.Connection
   java::import java.sql.DriverManager
   java::import java.sql.ResultSet
   java::import java.sql.SQLWarning
   java::import java.sql.Statement
   java::import java.sql.CallableStatement
   java::import java.sql.ResultSetMetaData
   java::import java.sql.DatabaseMetaData
   java::import java.sql.Types
   java::import oracle.jdbc.OracleDatabaseMetaData
   # load database driver .
   java::call Class forName oracle.jdbc.OracleDriver
   # set the connection url.
   append url jdbc:oracle:thin
   append url :
   append url $username
   append url /
   append url $password
   append url "@"
   append url $serverName
   append url :
   append url $portNumber
   append url :
   append url $databaseName
   set oraConnection [ java::call DriverManager getConnection $url ]
   set oraDatabaseMetaData [ $oraConnection getMetaData ]
   set oraDatabaseVersion [ $oraDatabaseMetaData getDatabaseProductVersion ]
   puts "Connected to: $url"
   puts "$oraDatabaseVersion"
   return $oraConnection
proc oracleDisconnect { oraConnect } {
  $oraConnect close
proc oraJDBCType { oraType } {
  #translation of JDBC types as defined in XOPEN interface
  set rv "NUMBER"
  switch $oraType {
     "0" {set rv "NULL"}
     "1" {set rv "CHAR"}
     "2" {set rv "NUMBER"}
     "3" {set rv "DECIMAL"}
     "4" {set rv "INTEGER"}
     "5" {set rv "SMALLINT"}
     "6" {set rv "FLOAT"}
     "7" {set rv "REAL"}
     "8" {set rv "DOUBLE"}
     "12" {set rv "VARCHAR"}
     "16" {set rv "BOOLEAN"}
     "91" {set rv "DATE"}
     "92" {set rv "TIME"}
     "93" {set rv "TIMESTAMP"}
     default {set rv "OBJECT"}
  return $rv
proc oracleQuery { oraConnect oraQuery } {
   set oraStatement [ $oraConnect createStatement ]
   set oraResults [ $oraStatement executeQuery $oraQuery ]
   # The following metadata dump is not required, but will be a helpfull sort of thing
   # if ever want to really build an abstraction layer
   #set oraResultsMetaData [ $oraResults getMetaData ]
   #set columnCount        [ $oraResultsMetaData getColumnCount ]
   #set i 1
   #puts "ResultSet Metadata:"
   #while { $i <= $columnCount} {
   #   set fname [ $oraResultsMetaData getColumnName $i]
   #   set ftype [oraJDBCType [ $oraResultsMetaData getColumnType $i]]
   #   puts "Output Field $i Name: $fname Type: $ftype"
   #   incr i
   # end of metadata dump
   return $oraResults
proc run_exec_template { oraConnect rtOwner locName taskType taskName {custParms ""} {sysParms ""} } {
    #   rt_owner      := e.g. MY_RUNTIME      - Name of the Runtime Repository Owner
    #   location_name :- e.g. MY_WAREHOUSE    - Physical Name of the Location to which this task was deployed
    #                                           (i.e. a DB Location or a Process Location or the Platform Schema)
    #                                           Note: Always use "PlaformSchema" for SQL_LOADER and SAP types.
    #   task_type     :- PLSQLMAP             - OWB PL/SQL Mapping
    #                 |  SQLLOADERCONTROLFILE - OWB SQL*Loader Mapping
    #                 |  PROCESSFLOW          - OWB ProcessFlow
    #                 |  ABAPFILE             - OWB SAP Mapping
    #                 |  DATAAUDITOR          - OWB DataAuditor Mapping
    #                 |  SCHEDULEDJOB         - OWB Scheduled Job
    #   task_name     :- e.g. MY_MAPPING      - Physical Name of the Deployed Object. This can be optionally qualified
    #                                           by the name of a deployed parent, such as the Processflow Package name
    #                                           of a Processflow. A module name cannot be used here because it is not
    #                                           a deployable object.
    #   system_params :- { , | (name = value [, name = value]...)}
    #                    e.g. ","
    #                    or   MY_PARAM=1,YOUR_PARAM=true
    #   custom_params :- { , | (name = value [, name = value]...)}
    #                    e.g. ","
    #                    or   MY_PARAM=1,YOUR_PARAM=true
    # RETURNS
    #   1 if task reports SUCCESS, 2 if WARNING, 3 if ERROR
    set oraStmt [ $oraConnect createStatement ]
    set tmpRslt [ $oraStmt execute "alter session set current_schema=$rtOwner" ]
    set tmpRslt [ $oraStmt execute "set role owb_o_$rtOwner" ]
    set tmpRslt [ $oraStmt execute "set role owb_d_$rtOwner" ]
    set callString "declare x number; begin x := wb_rt_api_exec.run_task('$rtOwner','$locName','$taskType','$taskName','$custParms','$sysParms'); end;"
    set oraCall [ $oraConnect prepareCall $callString ]
    #$oraCall registerOutParameter  { 1 java.lang.Integer int} {4 java:lang:Integer int}
    #$oraCall setString 2 $rtOwner
    #$oraCall setString 3 $locName
    #$oraCall setString 4 $taskType
    #$oraCall setString 5 $taskName
    #$oraCall setString 6 $sysParms
    #$oraCall setString 7 $custParms
    $oraCall execute
    #set retVal [$oraCall getInt 1]
    #set back to the default schema
    set oraDatabaseMetaData [ $oraConnect getMetaData ]
    set oraUser [$oraDatabaseMetaData getUserName]
    set tmpRslt [ oraStmt execute "alter session set current_schema=$oraUser" ]
# SAMPLE CODE to run a quick query and dump the results. #
#set oraConn [ oracleConnect myserver orcl 1555 scott tiger ]
#set oraRs [ oracleQuery $oraConn "select name, count(*) numlines from user_source group by name" ]
#for each row in the result set
#while {[$oraRs next]} {
  #grab the field values
#  set procName [$oraRs getString name]
#  set procCount [$oraRs getInt numlines]
#  puts "Program unit $procName comprises $procCount lines"
#$oraRs close
#oracleDisconnect $oraConnI do not know if you will need to play with classpaths or anything to get a successfull import as I never tried to do anything with custom classes. Oracle also has a demo example of integrating java with OMB+ to create modal dialogs which might provide additional guidance. It is available here: http://www.oracle.com/technology/sample_code/products/warehouse/files/owb_params.html
Good luck with it!