Try
            alAbteilung = New ArrayList
 
            objDBCommand = objIBS_Query.CopyDBCommand( _
              objIBS_Query.qrySelectAusgeschlosseneAbteilungen)
 
            'Parameter
            With objDBCommand
                'Datenbankverbindung herstellen, Query ausfuehren
                objIBS_QueryShare.blnOpenConnection(.Connection())
                CType(.Parameters.Item("UUSER"), IDataParameter).Value() = _
                  UCase(objIBS_INIT.ibsUserShortName)
                CType(.Parameters.Item("UKHNR"), IDataParameter).Value = _
                objIBS_INIT.ibsUserKrankenhausNr
            End With
 
            'Austausch der AS400 Library pro KrankenhausNr
            objIBS_Query.blnLibrarysChangesBeforeExecute(objDBCommand)
 
            'ausfuehren
            dreDataReader = objIBS_Query.ExecuteReaderWaiting(objDBCommand, _
              CommandBehavior.Default)
            If Not dreDataReader Is Nothing Then
                While dreDataReader.Read
                    'solange Datensaetze vorhanden sind, aus DB lesen
                    'Abteilungskuerzel an's Array anhaengen
                    intOrdinal = dreDataReader.GetOrdinal("UBRCH")
                    strKurz = dreDataReader.GetString(intOrdinal).Trim _
                      'hb050905 wg. V5R3
                    alAbteilung.Add(strKurz)
 
                End While
                'strausgeschlosseneAbteilungen = alAbteilung.Add( 
                ' strKurz).ToString
                dreDataReader.Close()
 
            End If
 
            If ConnectionClose = True Then
                'Connection schliessen
                objIBS_QueryShare.blnCloseConnection(objDBCommand.Connection())
            End If
        Catch ex As Threading.ThreadAbortException
            'bei einer ThreadAbortException soll gar nichts passieren
        Catch ex As Exception
            'im Fehlerfall Fehlermeldung ausgeben
            ErrorMessage1(ex, "SQL = " & objIBS_Query.ConvertCommandToString( _
              objDBCommand))
        Finally
            If Not dreDataReader Is Nothing AndAlso Not dreDataReader.IsClosed _
              Then
                'Verbindung schliessen
                dreDataReader.Close()
            End If
            dreDataReader = Nothing
            objDBCommand = Nothing
            strKurz = Nothing
        End Try
 
        Return alAbteilung
    End Function

Public Property AusgeschlosseneAbteilungen() As ArrayList
        Get
            Return malAusgeschlosseneAbteilungen
        End Get
        Set(ByVal Value As ArrayList)
            malAusgeschlosseneAbteilungen = Value
        End Set
    End Property