[Squirrel-sql-commits] sql12/test/scripts/db2 udf.sql,1.1,1.2

[Rob M. <man...@us...>]

Update of /cvsroot/squirrel-sql/sql12/test/scripts/db2
In directory sc8-pr-cvs8.sourceforge.net:/tmp/cvs-serv17231/test/scripts/db2

Modified Files:
	udf.sql 
Log Message:
updates

Index: udf.sql
===================================================================
RCS file: /cvsroot/squirrel-sql/sql12/test/scripts/db2/udf.sql,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** udf.sql	11 Aug 2007 17:23:53 -0000	1.1
--- udf.sql	27 Aug 2007 00:43:05 -0000	1.2
***************
*** 22,24 ****
   CREATE FUNCTION columnUDF ( UDTforColumnUDF ) 
   RETURNS UDTforColumnUDF 
!  SOURCE "SYSIBM".AVG( DECIMAL() ) 
\ No newline at end of file
--- 22,70 ----
   CREATE FUNCTION columnUDF ( UDTforColumnUDF ) 
   RETURNS UDTforColumnUDF 
!  SOURCE "SYSIBM".AVG( DECIMAL() ) 
! 
! 
! -- contributed by user osujfpd
! CREATE FUNCTION FNGETINDEXES( delimString VARCHAR(1024) )
!     RETURNS TABLE (ordinal INTEGER, index INTEGER)
! 	LANGUAGE SQL
! 	DETERMINISTIC
! 	NO EXTERNAL ACTION
! 	CONTAINS SQL
! 
!     RETURN 
! 		WITH tbl(ordinal, index) AS
! 		(	VALUES (0, 0) 		-- beginning of string
! 			UNION ALL
! 			SELECT ordinal + 1, 
! 					COALESCE(
! 						NULLIF(LOCATE(',', delimString, index + 1), 0),
! 						LENGTH(delimString) + 1)
! 			FROM tbl			-- recursively locate all delimiters
! 			WHERE ordinal <= 1024
! 				AND LOCATE(',', delimString, index + 1) <> 0
! 		)
! 
! 	SELECT ordinal, index 
!     	FROM tbl
! 		
! 	UNION ALL
! 
! 	SELECT MAX(ordinal) + 1, LENGTH(delimString) + 1
! 		FROM tbl		-- end of string
! ;
! 
! 
! CREATE FUNCTION TOTALPAY (
!         SALARY DECIMAL(9, 2),
!         BONUS DECIMAL(9, 2),
!         COMMISSION DECIMAL(9, 2))
!     RETURNS DECIMAL(9, 2)
!     LANGUAGE SQL
!     DETERMINISTIC
!     NO EXTERNAL ACTION
!     CONTAINS SQL
! 
! RETURN COALESCE(SALARY, 0) + COALESCE(BONUS, 0) + COALESCE(COMMISSION, 0);
! 
!