ASP.NET

<br />
            Dim strSuccess As String = ""<br />
            ' Create instance of connection and command object<br />
            Dim objConn As IBM.Data.DB2.iSeries.iDB2Connection = New iDB2Connection(DB2SP()) 'DB2SP() is connection string in my web.cofig. It does work, as other code use the same string<br />
<br />
            Dim objCmd As IBM.Data.DB2.iSeries.iDB2Command = New iDB2Command("A1EXEC.LISTIMPORT", objConn)<br />
<br />
            ' Mark the command as a SPROC<br />
            objCmd.CommandType = CommandType.StoredProcedure<br />
<br />
            Dim strDivision As String = "C1"<br />
            Dim intPeriod As Integer = 200705<br />
<br />
            ' Add parameters to SPROC<br />
	    ' just done the basics here, to get it to work<br />
            objCmd.Parameters.Add(New IBM.Data.DB2.iSeries.iDB2Parameter("@division", strDivision))<br />
            objCmd.Parameters.Add(New IBM.Data.DB2.iSeries.iDB2Parameter("@period", intPeriod))<br />
<br />
            ' Execute the command<br />
            Try<br />
                ' Open the connection and execute the command<br />
                objConn.Open()<br />
                objCmd.ExecuteNonQuery()<br />
                strSuccess = "SP - Successful"<br />
            Catch ex As Exception<br />
                Dim strExceptionMsg As String = "Error Executing SP(): " & ex.Message & vbCrLf<br />
                Throw New Exception(strExceptionMsg, ex)<br />
            Finally<br />
                ' Close the Connection<br />
                If objConn.State = ConnectionState.Open Then<br />
                    objConn.Close()<br />
                End If<br />
                objConn.Dispose()<br />
                objCmd.Dispose()<br />
            End Try<br />
<br />
            Return strSuccess