[Squirrel-sql-commits] sql12/test/scripts/db2 udf.sql,1.1,1.2
A Java SQL client for any JDBC compliant database
Brought to you by:
colbell,
gerdwagner
From: Rob M. <man...@us...> - 2007-08-27 13:43:21
|
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); ! ! |