例: ロックの作業 (Visual Basic)

' この例では、エレメントのロックについて説明しますが、
' 他の CCVOBObjects のロックも同様の方法で機能します。

' 最上位の Rational ClearCase アプリケーション オブジェクトに接続します。
Dim CC As New ClearCase.Application
Dim Elem As CCElement

' 最上位のアプリケーション オブジェクトから CCElement オブジェクトを取得します。
Set Elem = CC.Element("m:¥carol_main¥caroltest¥testelem.c")

' エレメント上にロックを作成します。ただし、エレメントを不要にはしません。
' ユーザー "jo" および "caroly" をロック免除にします。
Elem.CreateLock "locking from example script", False, Array("jo", "caroly")

' ロックに関するいくつかの情報を出力します。
' 注: 例ではエラー チェックを実行していませんが、実際にはエラー チェックを実行してください。
Dim ElemLock As CCLock
Set ElemLock = Elem.Lock
Dim Record As CCHistoryRecord
Set Record = ElemLock.CreationRecord

' 免除ユーザーのリストを取得します。
Dim ExemptUsers as Variant
Dim strUsers as String
ExemptUsers = ElemLock.ExemptUsersStringArray
For I = 0 To ElemLock.NumberOfExemptUsers - 1
     If I <> 0 Then
          strUsers = strUsers & ", " & ExemptUsers(I)
     Else
          strUsers = ExemptUsers(I)
     End If
Next I

' その他のロック情報を出力します。
MsgBox "Lock created by " & Record.UserLoginName & " at " & Record.Date & _
     " and has " & ElemLock.NumberOfExemptUsers & " exempt users: " & strUsers

' ここで、Array() 関数ではなく、宣言した配列を使用して、
' 免除ユーザーのリストを変更します。
Dim Arr(3) As String
Arr(0) = "bill"
Arr(1) = "eric"
Arr(2) = "caroly"
ElemLock.SetExemptUsersStringArray(Arr)

' アンロックします。
ElemLock.Remove