' Determine all the views owned by a specified user that are attached
' to all of the development streams owned by that user in all the
' projects in a particular project VOB
Dim CC As New ClearCase.Application
' Get the project VOB with tag "\projects"
Dim PVOB As CCProjectVOB
On Error Resume Next
Set PVOB = CC.ProjectVOB("\projects")
If Err.Number <> 0 Then
MsgBox "Error getting project VOB: " & Err.Description
Else
' Get the projects in the project VOB and iterate through each to
' determine if the project has development streams attached to it
Dim Projects As CCProjects
Dim Name As String
Dim Str As String
On Error Resume Next
Str = ""
Set Projects = PVOB.Projects
If Err.Number <> 0 Then
MsgBox "Error getting projects from project VOB: " & _
Err.Description
Else
MsgBox "Iterating over " & Projects.Count & " Project(s)"
Name = "company\jed"
Dim Project As CCProject
For Each Project In Projects
' If the project has development streams owned by "Name",
' get the views owned by "Name" that are attached to those streams
If Project.HasStreams Then
Dim Streams As CCStreams
Dim Stream As CCStream
Set Streams = Project.DevelopmentStreams(Name)
For Each Stream In Streams
Dim Views As CCViews
Set Views = Stream.Views(Name)
Dim View As CCView
For Each View In Views
Str = Str & View.TagName & " in stream: " & _
Stream.Title & vbCrLf
Next
Next
End If
Next
End If
If Str = "" Then
MsgBox "No views owned by " & Name
Else
MsgBox "Views owned by " & Name & " :" & vbCrLf & Str
End If
End If