craibuc

SELECT  SID, USERNAME, SCHEMANAME, OSUSER, MACHINE, TERMINAL, PROGRAM, TYPE, MODULE, ACTION, LOGON_TIME 
FROM    V$SESSION
-- current user
WHERE   USERNAME = USER

craibuc

<?xml version="1.0" encoding="UTF-8"?>
<xsl:stylesheet xmlns:xsl="http://www.w3.org/1999/XSL/Transform" version="1.0">
	<xsl:template match="//table[@width='623']">
		<locations>
		  <xsl:apply-templates select="descendant::tr" />
		</locations>
	</xsl:template>
	<xsl:template match="//tr">
		<location>
			<xsl:attribute name='name'>

craibuc

Function (Numbervar base_ten, Numbervar base_n)
 
  // quotient
  Local Numbervar q;
  // remainder
  Local Numbervar r;
  // converted values
  Local Numbervar Array slots;
 
do (

craibuc

//Assumes values in the following formats:
//99 - integer value
//99.9 - decimal value
//N/D - numerator/denominator
//M N/D - whole + numerator/denominator

Function (Stringvar value)

  Local Numbervar whole := 0;
  Local Stringvar fraction;

craibuc

--[1st day of current month]: use the GetDate(), Month(), and Year() functions to determine the current month and year. Build a string using these values in MM/01/YYYY format. Convert the String to DateTime.
CAST( CAST( Month(GetDate()) AS Char(2) ) + '/01/' + CAST( Year(GetDate()) AS Char(4)) AS DateTime)

--[Last day of current month]: add a month to [1st day of current month], then subtract a day.
DateAdd(m, 1, CAST( CAST( Month(GetDate()) AS Char(2) ) + '/01/' + CAST( Year(GetDate()) AS Char(4)) AS DateTime)) -1

--[1st day of prior month]: subtract a month from [1st day of current month].
DateAdd(m, -1, CAST( CAST( Month(GetDate()) AS Char(2) ) + '/01/' + CAST( Year(GetDate()) AS Char(4)) AS DateTime))

--[Last day of prior month]: subtract a day from [1st day of current month].

craibuc

Function (Stringvar Array Items, Stringvar Value)

  Numbervar i;
  Booleanvar flag:=False;
  
  If Ubound(Items)>0 Then
    For i := 1 To Ubound(Items) Do (
      If Items[i]=Value Then (
        flag:=True;
        Exit For

craibuc

set ANSI_NULLS ON
set QUOTED_IDENTIFIER ON
GO

/*----------------------------------------------------------------------------------------------------
Author:        Craig Buchanan
Date:        2/6/2006
Description:    Returns the greater of two dates
Parameters:    
  @Date1 - datetime to be compared

craibuc

set ANSI_NULLS ON
set QUOTED_IDENTIFIER ON
GO

/*----------------------------------------------------------------------------------------------------
Author:        Craig Buchanan
Date:        2/6/2006
Description:    Returns the lesser of two dates
Parameters:    
  @Date1 - datetime to be compared

craibuc

'get the source and target infoObjects
Dim sourceInfoObject As InfoObject = infoStore.Query("SELECT SI_ID, SI_NAME, SI_FILES FROM CI_INFOOBJECTS WHERE SI_ID=" & sourceId)(1)

Dim targetInfoObject As InfoObject = infoStore.Query("SELECT SI_ID, SI_NAME, SI_FILES FROM CI_INFOOBJECTS WHERE SI_ID=" & targetId)(1)

'get the desired file from FRS
Dim sourceFile As File = sourceInfoObject.Files(1)

'create buffer and size appropriately
Dim buffer As Byte() = new Byte(sourceFile.Size) {}

craibuc

# remove for asciidoctor (Ruby) implementation
# require 'asciidoctor'
# require 'erb'

#
# Purpose:	automatically run scripts when any .ADOC file changes; creates OS X (Mavericks) notifications
# Requires:	
# - Ruby (https://www.ruby-lang.org)
#	- guard (https://github.com/guard/)
#	- guard-shell (https://github.com/hawx/guard-shell)