Edit D:\app\Administrator\product\11.2.0\dbhome_1\owb\rtasst\wbrtxmltkplsql.sql

begin
  declare
   flag NUMBER := 0;
  begin
    select count(*) into flag
    from product_component_version
    where instr(product,'Oracle8i') != 0 AND
          instr(version,'8.1.7') != 0;
    if flag = 1 then
      begin
        execute immediate('create public synonym "oracle/xml/sql/core/OracleXMLConvert"'||
          ' for SYS."oracle/xml/sql/core/OracleXMLConvert"');

execute immediate('create public synonym "oracle/xml/sql/core/OracleXMLTimer"'||
          ' for SYS."oracle/xml/sql/core/OracleXMLTimer"');

execute immediate('create public synonym "oracle/xml/sql/core/OracleXMLTime"'||
          ' for SYS."oracle/xml/sql/core/OracleXMLTime"');

execute immediate ('create public synonym "oracle/xml/sql/core/OracleXMLUtil"'||
          ' for SYS."oracle/xml/sql/core/OracleXMLUtil"');

execute immediate ('create public synonym "oracle/xml/sql/dataset/OracleXMLDataSet"'||
          ' for SYS."oracle/xml/sql/dataset/OracleXMLDataSet"');

execute immediate ('create public synonym "oracle/xml/sql/dataset/OracleXMLDataSetExtJdbc"'||
          ' for SYS."oracle/xml/sql/dataset/OracleXMLDataSetExtJdbc"');

execute immediate ('create public synonym "oracle/xml/sql/dataset/OracleXMLDataSetGenJdbc"'||
          ' for SYS."oracle/xml/sql/dataset/OracleXMLDataSetGenJdbc"');

execute immediate ('create public synonym "oracle/xml/sql/docgen/OracleXMLDocGen"'||
          ' for SYS."oracle/xml/sql/docgen/OracleXMLDocGen"');

execute immediate ('create public synonym "oracle/xml/sql/docgen/OracleXMLDocGenDOM"'||
          ' for SYS."oracle/xml/sql/docgen/OracleXMLDocGenDOM"');

execute immediate ('create public synonym "oracle/xml/sql/docgen/OracleXMLDocGenLob"'||
          ' for SYS."oracle/xml/sql/docgen/OracleXMLDocGenLob"');

execute immediate ('create public synonym "oracle/xml/sql/docgen/OracleXMLDocGenSAX"'||
          ' for SYS."oracle/xml/sql/docgen/OracleXMLDocGenSAX"');

execute immediate ('create public synonym "oracle/xml/sql/docgen/OracleXMLDocGenString"'||
          ' for SYS."oracle/xml/sql/docgen/OracleXMLDocGenString"');

execute immediate ('create public synonym "oracle/xml/sql/name/OracleColumnName"'||
        ' for SYS."oracle/xml/sql/name/OracleColumnName"');

execute immediate ('create public synonym "oracle/xml/sql/name/OracleCursorName"'||
          ' for SYS."oracle/xml/sql/name/OracleCursorName"');

execute immediate ('create public synonym "oracle/xml/sql/name/OracleADTName"'||
          ' for SYS."oracle/xml/sql/name/OracleADTName"');

execute immediate ('create public synonym "oracle/xml/sql/name/OracleCollectionName"'||
          ' for SYS."oracle/xml/sql/name/OracleCollectionName"');

execute immediate ('create public synonym "oracle/xml/sql/name/OracleScalarName"'||
          ' for SYS."oracle/xml/sql/name/OracleScalarName"');

execute immediate ('create public synonym "oracle/xml/sql/query/OracleXMLQuery"'||
          ' for SYS."oracle/xml/sql/query/OracleXMLQuery"');

execute immediate ('create public synonym "oracle/xml/sql/query/OracleXMLStaticQuery$MutableInt"'||
          ' for SYS."oracle/xml/sql/query/OracleXMLStaticQuery$MutableInt"');

execute immediate ('create public synonym "oracle/xml/sql/query/OracleXMLStaticQuery$QueryCtx"'||
          ' for SYS."oracle/xml/sql/query/OracleXMLStaticQuery$QueryCtx"');

execute immediate ('create public synonym "oracle/xml/sql/query/OracleXMLStaticQuery"'||
          ' for SYS."oracle/xml/sql/query/OracleXMLStaticQuery"');

execute immediate ('create public synonym "oracle/xml/sql/dml/OracleXMLSave"'||
          ' for SYS."oracle/xml/sql/dml/OracleXMLSave"');

execute immediate ('create public synonym "oracle/xml/sql/dml/OracleXMLStaticSave$MutableInt"'||
          ' for SYS."oracle/xml/sql/dml/OracleXMLStaticSave$MutableInt"');

execute immediate ('create public synonym "oracle/xml/sql/dml/OracleXMLStaticSave$SaveCtx"'||
          ' for SYS."oracle/xml/sql/dml/OracleXMLStaticSave$SaveCtx"');

execute immediate ('create public synonym "oracle/xml/sql/dml/OracleXMLStaticSave"'||
          ' for SYS."oracle/xml/sql/dml/OracleXMLStaticSave"');

execute immediate ('create public synonym "oracle/xml/sql/OracleXMLSQLException"'||
          ' for SYS."oracle/xml/sql/OracleXMLSQLException"');

execute immediate ('create public synonym "oracle/xml/sql/OracleXMLSQLNoRowsException"'||
          ' for SYS."oracle/xml/sql/OracleXMLSQLNoRowsException"');

execute immediate ('create public synonym "oracle/xml/sql/XSUXSchemaHandler"'||
          ' for SYS."oracle/xml/sql/XSUXSchemaHandler"');

execute immediate ('create public synonym "oracle/xml/sql/XSUMesg"'||
          ' for SYS."oracle/xml/sql/XSUMesg"');

execute immediate ('create public synonym "oracle/xml/sql/mesg/XSUMessages.properties"'||
          ' for SYS."oracle/xml/sql/mesg/XSUMessages.properties"');

execute immediate ('create public synonym "OracleXMLStore"'||
          ' for SYS."OracleXMLStore"');
      exception
        when others then
          null;
      end;
    end if;
  end;
end;
/

CREATE OR REPLACE PACKAGE OWBXMLTK AS

PROCEDURE INIT(controlInfo VARCHAR2); 
  PROCEDURE DISPOSE; 
  FUNCTION LOAD_ALL RETURN NUMBER; 
  FUNCTION LOAD(num NUMBER) RETURN NUMBER; 
  FUNCTION LOAD_NEXT_BATCH RETURN NUMBER; 
  PROCEDURE LOAD_CURRENT; 
  FUNCTION HAS_MORE_XML  RETURN BOOLEAN; 
  FUNCTION IS_MAX_LOADS_KNOWN RETURN BOOLEAN; 
  FUNCTION MAX_LOAD_COUNT RETURN NUMBER;

END;
/

CREATE OR REPLACE PACKAGE BODY OWBXMLTK AS

FUNCTION i_init(controlInfo VARCHAR2) RETURN NUMBER 
  AS LANGUAGE JAVA 
  NAME 'oracle.wh.runtime.xml.PLSQLAdapter.init(java.lang.String) return int';

FUNCTION i_load_all RETURN NUMBER AS LANGUAGE JAVA 
  NAME 'oracle.wh.runtime.xml.PLSQLAdapter.load() return int';

FUNCTION i_load(num NUMBER) RETURN NUMBER AS LANGUAGE JAVA 
  NAME 'oracle.wh.runtime.xml.PLSQLAdapter.load(int) return int';

FUNCTION i_loadNextBatch RETURN NUMBER AS LANGUAGE JAVA 
  NAME 'oracle.wh.runtime.xml.PLSQLAdapter.loadNextBatch() return int';

FUNCTION i_loadCurrent RETURN NUMBER AS LANGUAGE JAVA 
  NAME 'oracle.wh.runtime.xml.PLSQLAdapter.loadCurrent() return int';

FUNCTION i_hasMoreXML RETURN NUMBER AS LANGUAGE JAVA 
  NAME 'oracle.wh.runtime.xml.PLSQLAdapter.hasMoreXML() return int';

FUNCTION MAX_LOAD_COUNT RETURN NUMBER AS LANGUAGE JAVA 
  NAME 'oracle.wh.runtime.xml.PLSQLAdapter.maxXMLLoadCount() return int';

FUNCTION i_is_max_loads_known RETURN NUMBER AS LANGUAGE JAVA 
  NAME 'oracle.wh.runtime.xml.PLSQLAdapter.isMaxXMLLoadCountKnowInAdvance() return int';

FUNCTION getLastErrorMessage RETURN VARCHAR2 AS LANGUAGE JAVA 
  NAME 'oracle.wh.runtime.xml.PLSQLAdapter.getLastErrorMessage() return java.lang.String';

PROCEDURE checkForError(result NUMBER) IS 
  BEGIN 
    IF result < -20000 THEN 
      raise_application_error(result, getLastErrorMessage); 
    END IF; 
  END;

PROCEDURE INIT(controlInfo VARCHAR2) IS 
    result NUMBER; 
  BEGIN 
    result := i_init(controlInfo); 
    checkForError(result); 
  END;

PROCEDURE DISPOSE AS LANGUAGE JAVA 
  NAME 'oracle.wh.runtime.xml.PLSQLAdapter.dispose()';

FUNCTION LOAD_ALL RETURN NUMBER IS 
    result NUMBER; 
  BEGIN 
    result := i_load_all; 
    checkForError(result); 
    RETURN result; 
  END;

FUNCTION LOAD(num NUMBER) RETURN NUMBER IS 
    result NUMBER; 
  BEGIN 
    result := i_load(num); 
    checkForError(result); 
    RETURN result; 
  END;

FUNCTION LOAD_NEXT_BATCH RETURN NUMBER IS 
    result NUMBER; 
  BEGIN 
    result := i_loadNextBatch; 
    checkForError(result); 
    RETURN result; 
  END;

PROCEDURE LOAD_CURRENT IS 
    result NUMBER; 
  BEGIN 
    result := i_loadCurrent; 
    checkForError(result); 
  END;

FUNCTION HAS_MORE_XML  RETURN BOOLEAN IS 
    result NUMBER; 
  BEGIN 
    result := i_hasMoreXML; 
    checkForError(result); 
    RETURN (result = 1); 
  END;

FUNCTION IS_MAX_LOADS_KNOWN RETURN BOOLEAN IS 
    result NUMBER; 
  BEGIN 
    result := i_is_max_loads_known; 
    checkForError(result); 
    RETURN (result = 1); 
  END;

END;
/

CREATE OR REPLACE FUNCTION WB_XML_LOAD_F(control_info VARCHAR2) RETURN NUMBER AS 
  load_total NUMBER; 
BEGIN

OWBXMLTK.INIT(control_info); 
  load_total := OWBXMLTK.LOAD_ALL; 
  OWBXMLTK.DISPOSE; 
  RETURN load_total;

EXCEPTION 
  WHEN OTHERS THEN 
    ROLLBACK; 
    OWBXMLTK.DISPOSE; 
    RAISE; 
END;
/

CREATE OR REPLACE PROCEDURE WB_XML_LOAD(control_info VARCHAR2) AS 
  load_total NUMBER; 
BEGIN 
  load_total := WB_XML_LOAD_F(control_info); 
END;
/

grant execute on OWBXMLTK to public;
grant execute on WB_XML_LOAD_F to public;
grant execute on WB_XML_LOAD to public;

Ms-Dos/Windows Unix Write backup

jsp File Browser version 1.2 by www.vonloesch.de