Edit D:\app\Administrator\product\11.2.0\dbhome

Edit D:\app\Administrator\product\11.2.0\dbhome_1\RDBMS\xml\xsl\kusource.xsl

<?xml version="1.0"?>
<!-- 
NAME
    kusource.xsl
DESCRIPTION
    XSLT stylesheet for processing source lines for type, package, etc.
NOTES
    Do NOT modify this file under any circumstance. If you wish to use this
    stylesheet with an external XML/XSL parser, first make a copy then reverse
    the comments on any xsl:import statements appearing below.

MODIFIED        MM/DD/YY
    htseng      04/23/07 - bug 5690152 - add post_keyw, pre_name_len 
			   to retrieve the comment between keyword and name
    sdavidso    11/02/05 - fix inconsistent stylesheet format 
    lbarton     04/08/03 - Bug 2844111: DoSourceLines
    gclaborn    11/03/00 - change name
    lbarton	07/18/00 - bugfix
    lbarton	03/17/00 - Add module header
 -->
<xsl:stylesheet version="1.0" xmlns:xsl="http://www.w3.org/1999/XSL/Transform">
 
 <xsl:template match="SOURCE_LINES">
  <xsl:param name="OBJTYPE">0</xsl:param>
  <xsl:for-each select="SOURCE_LINES_ITEM">
   <xsl:choose>
    <xsl:when test="position()=1">
     
     <xsl:choose>
      
      <xsl:when test="$OBJTYPE=0">
       
       <xsl:value-of select="substring-after(substring-after(normalize-space(SOURCE),' '),' ')"/>
       
       <xsl:if test="substring(SOURCE,string-length(SOURCE),1)!=
            substring(normalize-space(SOURCE),
                         string-length(normalize-space(SOURCE)),1)">
        <xsl:text>&#xa;</xsl:text>
       </xsl:if>
      </xsl:when>
      
      <xsl:when test="$OBJTYPE=1">
       <xsl:choose>
        
        <xsl:when test="contains(SOURCE,'(')">
         <xsl:text>(</xsl:text>
         <xsl:value-of select="substring-after(SOURCE,'(')"/>
        </xsl:when>
        
        <xsl:otherwise>
         <xsl:value-of select="substring-after(substring-after(normalize-space(SOURCE),' '),' ')"/>
         
         <xsl:if test="substring(SOURCE,string-length(SOURCE),1)!=
            substring(normalize-space(SOURCE),
                         string-length(normalize-space(SOURCE)),1)">
          <xsl:text>&#xa;</xsl:text>
         </xsl:if>
        </xsl:otherwise>
       </xsl:choose>
      </xsl:when>
      
      <xsl:otherwise>
       <xsl:value-of select="substring-after(
         substring-after(
          substring-after(normalize-space(SOURCE),' '),' '),' ')"/>
       
       <xsl:text>&#xa;</xsl:text>
      </xsl:otherwise>
     </xsl:choose>
    </xsl:when>
    
    <xsl:otherwise>
     <xsl:value-of select="SOURCE"/>
    </xsl:otherwise>
   </xsl:choose>
  </xsl:for-each>
 </xsl:template>
 <xsl:template name="DoSourceLines">
  <xsl:param name="SourceLines"/>
  <xsl:for-each select="$SourceLines/SOURCE_LINES_ITEM">
   <xsl:choose>
    <xsl:when test="PRE_NAME=1">
     
     <xsl:if test="POST_KEYW">
      <xsl:value-of select="substring(SOURCE,POST_KEYW)"/>
     </xsl:if>
    </xsl:when>
    <xsl:when test="PRE_NAME=0 and POST_NAME_OFF=0">
     <xsl:choose>
      <xsl:when test="POST_KEYW">
       <xsl:value-of select="substring(SOURCE,POST_KEYW)"/>
      </xsl:when>
      <xsl:otherwise>
       <xsl:value-of select="SOURCE"/>
      </xsl:otherwise>
     </xsl:choose>
    </xsl:when>
    
    <xsl:when test="POST_NAME_OFF>0">
     <xsl:if test="POST_KEYW">
      <xsl:value-of select="substring(SOURCE,POST_KEYW,PRE_NAME_LEN)"/>
     </xsl:if>
     <xsl:value-of select="substring(SOURCE,POST_NAME_OFF)"/>
    </xsl:when>
   </xsl:choose>
  </xsl:for-each>
 </xsl:template>
</xsl:stylesheet>

Ms-Dos/Windows Unix Write backup

jsp File Browser version 1.2 by www.vonloesch.de