Private Sub getDB2Data()
            OutputJob.Documents = New Documents.DocumentCollection
 
            Try
                Dim Typ = Me.OutputJob.QueuedJob.Mandant.Connections( _
                  Me.OutputJob.QueuedJob.ConnectionString).DBMS
                Dim conn = Database.DB2Handler.GetDB2Connection( _
                Me.OutputJob.QueuedJob.Mandant.Connections( _
                Me.OutputJob.QueuedJob.ConnectionString).ConnString)
                Dim sql = Me.createSqlString( _
                Me.OutputJob.QueuedJob.DatenQuelle, _
                Me.OutputJob.QueuedJob.Auftragsnummer, Typ)
                'Dim sql = Me.createSqlString("<ADDON21C>.EKAKTION_DDC", 
                ' Me.OutputJob.QueuedJob.Auftragsnummer, Typ)
 
                Dim cmd As New DB2Command(sql, conn)
                cmd.CommandTimeout = 0
 
                Dim dr = cmd.ExecuteReader
 
                While dr.Read
                    Dim Doc As New Documents.Document(Me.OutputJob)
                    Doc.SendingId = dr.Item(47).ToString()
                    Me.OutputJob.Documents.Add(Doc)
                End While
 
                dr.Close()
                conn.Close()
            Catch ex As Exception
                MsgBox(ex.ToString())
            End Try
        End Sub
 
        Public Function createSqlString(ByVal source As String, ByVal _
          auftragsNummer As String, ByVal DBMS As _
          Integration.Mandanten.DBMSType) As String
            Dim sql As String = String.Empty
            sql = "SELECT * FROM " & source & " ;"
            Return sql
        End Function