级别: 初级

            public static void Counter  (out String language,
            out Int16  languageNullInd,
            ref String sqlState,
            String funcName,
            String funcSpecName,
            ref String sqlMsgString,
            ref Byte[] scratchPad,
            Int32  callType);
            

            void functionname(Int32 NumParams, Object[] Params)
            

            csc /out:%1.dll /target:library /debug /reference:%DB2PATH%\bin\netf11\IBM.Data.DB2.dll %1.cs
            

            @echo off
            rem Builds C# routines (stored procedures and UDFs)
            rem Usage: bldrtn prog_name
            rem Note: To compile and run the stored procedure samples, you must have
            rem           Version 1.1 or later of the .NET Framework installed.
            rem           When using the .NET Framework Version 1.1 point to netf11
            set VERSION=netf11
            rem Compile the program.
            csc /out:%1.dll /target:library /debug /reference:%DB2PATH%\bin\%VERSION%\IBM.Data.DB2.dll %1.cs
            if exist "%DB2PATH%\function\%1.dll" goto delete else goto copydll
            :delete
            del "%DB2PATH%\function\%1.dll"
            goto copydll
            :copydll
            rem Copy the routine assembly data link library to the 'function' directory
            copy "%1.dll" "%DB2PATH%\function"
            @echo onroutine

            vbc /target:library /debug /libpath:%DB2PATH%\bin\%VERSION%
            /reference:%DB2PATH%\bin\%VERSION%\IBM.Data.DB2.dll
            /reference:System.dll /reference:System.Data.dll %1.vb
            

            >>-CREATE PROCEDURE--procedure-name----------------------------->
            >--+--------------------------------------------------------+--->
            '-(--+----------------------------------------------+--)-'
            | .-,----------------------------------------. |
            | V .-IN----.                                | |
            '---+-------+--+----------------+--data-type-+-'
            +-OUT---+  '-parameter-name-'
            '-INOUT-'
            >--*--+-------------------------+--*---------------------------->
            '-SPECIFIC--specific-name-'
            .-DYNAMIC RESULT SETS 0--------.     .-MODIFIES SQL DATA-.
            >--+------------------------------+--*--+-------------------+--->
            '-DYNAMIC RESULT SETS--integer-'     +-NO SQL------------+
            +-CONTAINS SQL------+
            '-READS SQL DATA----'
            .-NOT DETERMINISTIC-.     .-CALLED ON NULL INPUT-.
            >--*--+-------------------+--*--+----------------------+--*----->
            '-DETERMINISTIC-----'
            .-OLD SAVEPOINT LEVEL-.
            >--+---------------------+--*--LANGUAGE--+-C-----+--*----------->
            '-NEW SAVEPOINT LEVEL-'               +-JAVA--+
            +-COBOL-+
            +-CLR---+
            '-OLE---'
            >--EXTERNAL--+----------------------+--*------------------------>
            '-NAME--+-'string'---+-'
            '-identifier-'
            .-FENCED------------------------.
            >--+-------------------------------+--*------------------------->
            +-FENCED--*--+-THREADSAFE-----+-+
            |            '-NOT THREADSAFE-' |
            |                .-THREADSAFE-. |
            '-NOT FENCED--*--+------------+-'
            .-EXTERNAL ACTION----.  .-INHERIT SPECIAL REGISTERS-.
            >--+--------------------+--+---------------------------+--*----->
            '-NO EXTERNAL ACTION-'
            >--PARAMETER STYLE--+-DB2GENERAL---------+--*------------------->
            +-DB2SQL-------------+
            +-GENERAL------------+
            +-GENERAL WITH NULLS-+
            +-JAVA---------------+
            '-SQL----------------'
            >--+------------------------------+--*-------------------------->
            '-PARAMETER CCSID--+-ASCII---+-'
            '-UNICODE-'
            .-NO DBINFO-.
            >--+------------------------+--*--+-----------+--*-------------->
            '-PROGRAM TYPE--+-SUB--+-'     '-DBINFO----'
            '-MAIN-'
            >--+---------------------------------------------------+-------><
            +-EXECUTION CONTROL-+----SAFE----+------------------+
            +---FILEREAD-+
            +--FILEWRITE-+
            +---UNSAFE---+
            

            using System;
            using System.IO;
            using IBM.Data.DB2;
            namespace bizLogic
            {
            class empOps
            {          ...
            // C# procedures
            ...
            }
            }
            

            CREATE PROCEDURE setEmpBonusGEN(IN empID CHAR(6), INOUT bonus Decimal(9,2),
            OUT empName VARCHAR(60))
            SPECIFIC SetEmpBonusGEN
            LANGUAGE CLR
            PARAMETER STYLE GENERAL
            DYNAMIC RESULT SETS 0
            PROGRAM TYPE SUB
            EXTERNAL NAME 'gwenProc.dll:bizLogic.empOps!SetEmpBonusGEN'
            EXECUTION CONTROL SAFE;
            

            public static void SetEmpBonusGEN(    String empID,
            ref Decimal bonus,
            out String empName)
            {
            // Declare local variables
            Decimal salary = 0;
            DB2Command myCommand = DB2Context.GetCommand();
            myCommand.CommandText =
            "SELECT FIRSTNME, MIDINIT, LASTNAME, SALARY "
            + "FROM EMPLOYEE "
            + "WHERE EMPNO = '" + empID + '";
            DB2DataReader reader = myCommand.ExecuteReader();
            if (reader.Read())  // If employee record is found
            {
            // Get the employee's full name and salary
            empName = reader.GetString(0) + " " +
            reader.GetString(1) + ". " +
            reader.GetString(2);
            salary = reader.GetDecimal(3);
            if (bonus == 0)
            {
            if (salary > 75000)
            {
            bonus = salary * (Decimal)0.025;
            }
            else
            {
            bonus = salary * (Decimal)0.05;
            }
            }
            }
            else  // Employee not found
            {
            empName = "";  // Set output parameter
            }
            reader.Close();
            }
            

            CREATE PROCEDURE SetEmpbonusGENNULL(IN empID CHAR(6),
            INOUT bonus Decimal(9,2),
            OUT empName VARCHAR(60))
            SPECIFIC SetEmpbonusGENNULL
            LANGUAGE CLR
            PARAMETER STYLE GENERAL WITH NULLS
            DYNAMIC RESULT SETS 0
            FENCED
            PROGRAM TYPE SUB
            EXTERNAL NAME 'gwenProc.dll:bizLogic.empOps!SetEmpBonusGENNULL'
            EXECUTION CONTROL SAFE;
            

            public static void SetEmpBonusGENNULL(    String empID,
            ref Decimal bonus,
            out String empName,
            Int16[] NullInds)
            {
            Decimal salary = 0;
            if (NullInds[0] == -1) // Check if the input is null
            {
            NullInds[1] = -1;    // Return a NULL bonus value
            empName = "";        // Set output value
            NullInds[2] = -1;    // Return a NULL empName value
            }
            else
            {
            DB2Command myCommand = DB2Context.GetCommand();
            myCommand.CommandText =
            "SELECT FIRSTNME, MIDINIT, LASTNAME, SALARY "
            + "FROM EMPLOYEE "
            + "WHERE EMPNO = '" + empID + "'";
            DB2DataReader reader = myCommand.ExecuteReader();
            if (reader.Read())  // If employee record is found
            {
            // Get the employee's full name and salary
            empName = reader.GetString(0) + " "
            +
            reader.GetString(1) + ". " +
            reader.GetString(2);
            salary = reader.GetDecimal(3);
            if (bonus == 0)
            {
            if (salary > 5000)
            {
            bonus = salary * (Decimal)0.025;
            NullInds[1] = 0; // Return a non-NULL value
            }
            else
            {
            bonus = salary * (Decimal)0.05;
            NullInds[1] = 0; // Return a non-NULL value
            }
            }
            }
            else  // Employee not found
            {
            empName = "*sdq;;     // Set output parameter
            NullInds[2] = -1;     // Return a NULL value
            }
            reader.Close();
            }
            }
            

            CREATE PROCEDURE ReturnResultSet(IN tableName
            VARCHAR(20))
            SPECIFIC ReturnResultSet
            DYNAMIC RESULT SETS 1
            LANGUAGE CLR
            PARAMETER STYLE GENERAL
            FENCED
            PROGRAM TYPE SUB
            EXTERNAL NAME
            'gwenProc.dll:bizLogic.empOps!ReturnResultSet'
            EXECUTION CONTROL SAFE  ;
            

            public static void ReturnResultSet(string tableName)
            {
            DB2Command myCommand = DB2Context.GetCommand();
            // Set the SQL statement to be executed and execute it.
            myCommand.CommandText = "SELECT * FROM " + tableName;
            DB2DataReader reader = myCommand.ExecuteReader();
            // The DB2DataReader contains the result of the query.
            // This result set can be returned with the procedure,
            // by simply NOT closing the DB2DataReader.
            // Specifically, do NOT execute reader.Close();
            }
            

            using System;
            using System.IO;
            using IBM.Data.DB2;
            namespace bizLogic
            {
            ...
            // Class definitions that contain UDF declarations
            // and any supporting class definitions
            ...
            }
            

            CREATE FUNCTION tableUDF(double)
            RETURNS TABLE (name varchar(20),
            job varchar(20),
            salary double)
            EXTERNAL NAME 'gwenUDF.dll:bizLogic.empOps!tableUDF'
            LANGUAGE CLR
            PARAMETER STYLE SQL
            NOT DETERMINISTIC
            FENCED
            SCRATCHPAD 10
            FINAL CALL
            DISALLOW PARALLEL
            NO DBINFO
            EXECUTION CONTROL SAFE  ;
            

            // The class Person is a supporting class for
            // the table function UDF, tableUDF, below.
            class Person
            {
            private String name;
            private String position;
            private Int32 salary;
            public Person(String newName, String newPosition, Int32
            newSalary)
            {
            this.name = newName;
            this.position = newPosition;
            this.salary = newSalary;
            }
            public String getName()
            {
            return this.name;
            }
            public String getPosition()
            {
            return this.position;
            }
            public Int32 getSalary()
            {
            return this.salary;
            }
            }
            

            class empOps
            {
            {
            public static void TableUDF( Double factor, out String name,
            out String position, out Double salary,
            Int16 factorNullInd, out Int16 nameNullInd,
            out Int16 positionNullInd, out Int16 salaryNullInd,
            ref String sqlState, String funcName,
            String specName, ref String sqlMessageText,
            Byte[] scratchPad, Int32 callType)
            {
            Int16 intRow = 0;
            // Create an array of Person type information
            Person[] Staff = new
            Person[3];
            Staff[0] = new Person("Gwen", "Developer", 10000);
            Staff[1] = new Person("Andrew", "Developer", 20000);
            Staff[2] = new Person("Liu", "Team Leader", 30000);
            salary = 0;
            name = position = "";
            nameNullInd = positionNullInd = salaryNullInd = -1;
            switch(callType)
            {
            case (-2):  // Case SQLUDF_TF_FIRST:
            break;
            case (-1):  // Case SQLUDF_TF_OPEN:
            intRow = 1;
            scratchPad[0] = (Byte)intRow;  // Write to scratchpad
            break;
            case (0):   // Case SQLUDF_TF_FETCH:
            intRow = (Int16)scratchPad[0];
            if (intRow > Staff.Length)
            {
            sqlState = "02000";  // Return an error SQLSTATE
            }
            else
            {
            // Generate a row in the output table
            // based on the Staff array data.
            name =
            Staff[intRow-1].getName();
            position = Staff[intRow-1].getPosition();
            salary = (Staff[intRow-1].getSalary[]] * factor;
            nameNullInd = 0;
            positionNullInd = 0;
            salaryNullInd = 0;
            }
            intRow++;
            scratchPad[0] = (Byte)intRow;  // Write scratchpad
            break;
            case (1):   // Case SQLUDF_TF_CLOSE:
            break;
            case (2):   // Case SQLUDF_TF_FINAL:
            break;
            }
            }
            }
            

            CREATE TABLE T (i1 INTEGER);
            INSERT INTO T VALUES 12, 45, 16, 99;
            

            SELECT countUp(i1) as count, i1 FROM T;
            

            COUNT           I1
            -----------     ----------
            1               12
            2               45
            3               16
            4               99
            

            CREATE FUNCTION countUp(INTEGER)
            RETURNS INTEGER
            LANGUAGE CLR
            PARAMETER STYLE SQL
            FENCED
            SCRATCHPAD 10
            FINAL CALL
            VARIANT
            NO SQL
            EXTERNAL NAME 'gwenUDF.dll:bizLogic.empOps!CountUp'
            EXECUTION CONTROL SAFE ;
            

            class empOps
            {
            public static void CountUp(     Int32 input,
            out Int32 outCounter,
            Int16 inputNullInd,
            out Int16 outCounterNullInd,
            ref String sqlState,
            String funcName,
            String specName,
            ref String sqlMessageText,
            Byte[] scratchPad,
            Int32 callType)
            {
            Int32 counter = 1;        switch(callType)
            {
            case -1: // case SQLUDF_FIRST_CALL
            scratchPad[0] = (Byte)counter;
            outCounter = counter;
            outCounterNullInd = 0;
            break;
            case 0:  // case SQLUDF_NORMAL_CALL:
            counter = (Int32)scratchPad[0];
            counter = counter + 1;
            outCounter = counter;
            outCounterNullInd = 0;
            scratchPad[0] =
            (Byte)counter;
            break;
            case 1:  // case SQLUDF_FINAL_CALL:
            counter =
            (Int32)scratchPad[0];
            outCounter = counter;
            outCounterNullInd = 0;
            break;
            default: // Should never enter here
            // * Required so that at compile time
            //   out parameter outCounter is always set *
            outCounter = (Int32)(0);
            outCounterNullInd = -1;
            sqlState="ABCDE";
            sqlMessageText = "Should not get here: Default
            case!";
            break;
            }
            }
            }
            

            using System;
            using System.IO;
            using IBM.Data.DB2;
            Namespace bizLogic
            Class empOps
            ...
            ' Visual Basic procedures
            ...
            End Class
            End Namespace
            

            CREATE PROCEDURE SetEmpBonusGEN(IN empId CHAR(6),
            INOUT bonus Decimal(9,2),
            OUT empName VARCHAR(60))
            SPECIFIC setEmpBonusGEN
            LANGUAGE CLR
            PARAMETER STYLE GENERAL
            DYNAMIC RESULT SETS 0
            FENCED
            PROGRAM TYPE SUB
            EXTERNAL NAME 'gwenVbProc.dll:bizLogic.empOps!SetEmpBonusGEN'
            EXECUTION CONTROL SAFE ;
            

            Public Shared Sub SetEmpBonusGEN(ByVal empId As String, _
            ByRef bonus As Decimal, _
            ByRef empName As String)
            Dim salary As Decimal
            Dim myCommand As DB2Command
            Dim myReader As DB2DataReader
            salary = 0
            myCommand = DB2Context.GetCommand()
            myCommand.CommandText = _
            "SELECT FIRSTNME, MIDINIT, LASTNAME, SALARY " _
            + "FROM EMPLOYEE " _
            + "WHERE EMPNO = '" + empId + "'"
            myReader = myCommand.ExecuteReader()
            If myReader.Read()  ' If employee record is found
            ' Get the employee's full name and salary
            empName = myReader.GetString(0) + " " _
            + myReader.GetString(1) + ". " _
            + myReader.GetString(2)
            salary = myReader.GetDecimal(3)
            If bonus = 0
            If salary > 5000
            bonus = salary * 0.025
            Else
            bonus = salary * 0.05
            End If
            End If
            Else  ' Employee not found
            empName = ""  ' Set output parameter
            End If
            myReader.Close()
            End Sub
            

            CREATE PROCEDURE SetEmpBonusSQL(IN empId CHAR(6),
            INOUT bonus Decimal(9,2),
            OUT empName VARCHAR(60))
            SPECIFIC SetEmpBonusSQL
            LANGUAGE CLR
            PARAMETER STYLE SQL
            DYNAMIC RESULT SETS 0
            FENCED
            PROGRAM TYPE SUB
            EXTERNAL NAME 'gwenVbProc.dll:bizLogic.empOps!SetEmpBonusSQL'
            EXECUTION CONTROL SAFE ;
            

            Public Shared Sub SetEmpBonusSQL(byVal empId As String, _
            byRef bonus As Decimal, _
            byRef empName As String, _
            byVal empIdNullInd As Int16, _
            byRef bonusNullInd As Int16, _
            byRef empNameNullInd As Int16, _
            byRef sqlState As String, _
            byVal funcName As String, _
            byVal specName As String, _
            byRef sqlMessageText As String)
            ' Declare local host variables
            Dim salary As Decimal
            Dim myCommand As DB2Command
            Dim myReader As DB2DataReader
            salary = 0
            If empIdNullInd = -1   ' Check if the input is null
            bonusNullInd = -1   ' Return a NULL Bonus value
            empName = ""
            empNameNullInd = -1 ' Return a NULL empName value
            Else
            myCommand = DB2Context.GetCommand()
            myCommand.CommandText = _
            "SELECT FIRSTNME, MIDINIT, LASTNAME, SALARY " _
            + "FROM EMPLOYEE " _
            + " WHERE EMPNO = '" + empId + "'"
            myReader = myCommand.ExecuteReader()
            If myReader.Read()  ' If employee record is found
            '  Get the employee's full name and salary
            empName = myReader.GetString(0) + " "
            + myReader.GetString(1) _
            + ". " +  myReader.GetString(2)
            empNameNullInd = 0
            salary = myReader.GetDecimal(3)
            If bonus = 0
            If salary > 5000
            bonus = salary * 0.025
            bonusNullInd = 0  ' Return a non-NULL value
            Else
            bonus = salary * 0.05
            bonusNullInd = 0  ' Return a non-NULL value
            End If
            End If
            Else  ' Employee not found
            empName = ""            ' Set output parameter
            empNameNullInd = -1     ' Return a NULL value
            End If
            myReader.Close()
            End If
            End Sub
            

            CREATE PROCEDURE MainStyle(IN empId CHAR(6),
            INOUT bonus Decimal(9,2),
            OUT empName VARCHAR(60))
            SPECIFIC mainStyle
            DYNAMIC RESULT SETS 0
            LANGUAGE CLR
            PARAMETER STYLE GENERAL WITH NULLS
            FENCED
            PROGRAM TYPE MAIN
            EXTERNAL NAME 'gwenVbProc.dll:bizLogic.empOps!Main'
            EXECUTION CONTROL SAFE ;
            

            Public Shared Sub Main( byVal argc As Int32, _
            byVal argv As Object())
            Dim myCommand As DB2Command
            Dim myReader As DB2DataReader
            Dim empId As String
            Dim bonus As Decimal
            Dim salary As Decimal
            Dim nullInds As Int16()
            empId = argv(0)  ' argv[0] (IN)    nullInd = argv[3]
            bonus = argv(1)  ' argv[1] (INOUT) nullInd = argv[4]
            ' argv[2] (OUT)   nullInd = argv[5]
            salary = 0
            nullInds = argv(3)
            If nullInds(0) = -1     ' Check if the empId input is null
            nullInds(1) = -1     ' Return a NULL Bonus value
            argv(1) = ""         ' Set output parameter empName
            nullInds(2) = -1     ' Return a NULL empName value
            Return
            Else
            ' If the employee exists and the current bonus is 0,
            ' calculate a new employee bonus based on the employee's
            ' salary.  Return the employee name and the new bonus
            myCommand = DB2Context.GetCommand()
            myCommand.CommandText = _
            "SELECT FIRSTNME, MIDINIT, LASTNAME, SALARY " _
            + " FROM EMPLOYEE " _
            + " WHERE EMPNO = '" + empId + "'"
            myReader = myCommand.ExecuteReader()
            If myReader.Read()  ' If employee record is found
            ' Get the employee's full name and salary
            argv(2) = myReader.GetString(0) + " "  _
            + myReader.GetString(1) + ". " _
            + myReader.GetString(2)
            nullInds(2) = 0
            salary = myReader.GetDecimal(3)
            If bonus = 0
            If salary > 5000
            argv(1) = salary * 0.025
            nullInds(1) = 0  ' Return a non-NULL value
            Else
            argv(1) = Salary * 0.05
            nullInds(1) = 0  ' Return a non-NULL value
            End If
            End If
            Else  ' Employee not found
            argv(2) = ""      ' Set output parameter
            nullInds(2) = -1  ' Return a NULL value
            End If
            myReader.Close()
            End If
            End Sub
            

            using System;
            using System.IO;
            using IBM.Data.DB2;
            Namespace bizLogic
            ...
            ' Class definitions that contain UDF declarations
            ' and any supporting class definitions
            ...
            End Namespace
            

            CREATE FUNCTION TableUDF(double)
            RETURNS TABLE (name varchar(20),
            job varchar(20),
            salary double)
            EXTERNAL NAME 'gwenVbUDF.dll:bizLogic.empOps!TableUDF'
            LANGUAGE CLR
            PARAMETER STYLE SQL
            NOT DETERMINISTIC
            FENCED
            SCRATCHPAD 10
            FINAL CALL
            DISALLOW PARALLEL
            NO DBINFO
            EXECUTION CONTROL SAFE
            

            Class Person
            ' The class Person is a supporting class for
            ' the table function UDF, tableUDF, below.
            Private name As String
            Private position As String
            Private salary As Int32
            Public Sub New(ByVal newName As String, _
            ByVal newPosition As String, _
            ByVal newSalary As Int32)
            name = newName
            position = newPosition
            salary = newSalary
            End Sub
            Public Property GetName() As String
            Get
            Return name
            End Get
            Set (ByVal value As String)
            name = value
            End Set
            End Property
            Public Property GetPosition() As String
            Get
            Return position
            End Get
            Set (ByVal value As String)
            position = value
            End Set
            End Property
            Public Property GetSalary() As Int32
            Get
            Return salary
            End Get
            Set (ByVal value As Int32)
            salary = value
            End Set
            End Property
            End Class
            

            Class empOps
            Public Shared Sub TableUDF(byVal factor as Double, _
            byRef name As String, _
            byRef position As String, _
            byRef salary As Double, _
            byVal factorNullInd As Int16, _
            byRef nameNullInd As Int16, _
            byRef positionNullInd As Int16, _
            byRef salaryNullInd As Int16, _
            byRef sqlState As String, _
            byVal funcName As String, _
            byVal specName As String, _
            byRef sqlMessageText As String, _
            byVal scratchPad As Byte(), _
            byVal callType As Int32)
            Dim intRow As Int16
            intRow = 0
            ' Create an array of Person type information
            Dim staff(2) As Person
            staff(0) = New Person("Gwen", "Developer", 10000)
            staff(1) = New Person("Andrew", "Developer", 20000)
            staff(2) = New Person("Liu", "Team Leader", 30000)
            ' Initialize output parameter values and NULL indicators
            salary = 0
            name = position = ""
            nameNullInd = positionNullInd = salaryNullInd = -1
            Select callType
            Case -2   ' Case SQLUDF_TF_FIRST:
            Case -1   ' Case SQLUDF_TF_OPEN:
            intRow = 1
            scratchPad(0) = intRow  ' Write to scratchpad
            Case 0    ' Case SQLUDF_TF_FETCH:
            intRow = scratchPad(0)
            If intRow > staff.Length
            sqlState = "02000"  ' Return an error SQLSTATE
            Else
            ' Generate a row in the output table
            ' based on the staff array data.
            name = staff(intRow).GetName()
            position = staff(intRow).GetPosition()
            salary = (staff(intRow).GetSalary()) * factor
            nameNullInd = 0
            positionNullInd = 0
            salaryNullInd = 0
            End If
            intRow = intRow + 1
            scratchPad(0) = intRow  ' Write scratchpad
            Case 1    ' Case SQLUDF_TF_CLOSE:
            Case 2    ' Case SQLUDF_TF_FINAL:
            End Select
            End Sub
            End Class
            

            CREATE TABLE T (i1 INTEGER);
            INSERT INTO T VALUES 12, 45, 16, 99;
            

            SELECT my_count(i1) as count, i1 FROM T;
            

            COUNT           I1
            -----------     ----------
            1               12
            2               45
            3               16
            4               99
            

            CREATE FUNCTION mycount(INTEGER)
            RETURNS INTEGER
            LANGUAGE CLR
            PARAMETER STYLE SQL
            FENCED
            SCRATCHPAD 10
            FINAL CALL
            VARIANT
            NO SQL
            EXTERNAL NAME 'gwenUDF.dll:bizLogic.empOps!CountUp'
            EXECUTION CONTROL SAFE;
            

            Class empOps
            Public Shared Sub CountUp(byVal input As Int32, _
            byRef outCounter As Int32, _
            byVal nullIndInput As Int16, _
            byRef nullIndOutCounter As Int16, _
            byRef sqlState As String, _
            byVal qualName As String, _
            byVal specName As String, _
            byRef sqlMessageText As String, _
            byVal scratchPad As Byte(), _
            byVal callType As Int32)
            Dim counter As Int32
            counter = 1
            Select callType
            case -1           ' case SQLUDF_TF_OPEN_CALL
            scratchPad(0) = counter
            outCounter = counter
            nullIndOutCounter = 0
            case 0              'case SQLUDF_TF_FETCH_CALL:
            counter = scratchPad(0)
            counter = counter + 1
            outCounter = counter
            nullIndOutCounter = 0
            scratchPad(0) = counter
            case 1             'case SQLUDF_CLOSE_CALL:
            counter = scratchPad(0)
            outCounter = counter
            nullIndOutCounter = 0
            case Else          ' Should never enter here
            ' These cases won't occur for the following reasons:
            ' Case -2  (SQLUDF_TF_FIRST)     ->No FINAL CALL in CREATE stmt
            ' Case 2   (SQLUDF_TF_FINAL)     ->No FINAL CALL in CREATE stmt
            ' Case 255 (SQLUDF_TF_FINAL_CRA) ->No SQL used in the function
            '
            ' * Note!*
            ' ---------
            ' The Else is required so that at compile time
            ' out parameter outCounter is always set *
            outCounter = 0
            nullIndOutCounter = -1
            End Select
            End Sub
            End Class