スキーマの現在のリビジョンで使用可能な PackageRev セットを戻します。
Session オブジェクトからこのメソッドを呼び出す場合、ユーザー データベースにログオンするときにスキーマ リビジョンは既に認識されています。
代替使用については、このメソッド、この他のオブジェクトの GetEnabledPackageRevs、SchemaRev オブジェクトを参照してください。
VBScript
Set sessionObj = CreateObject("CLEARQUEST.SESSION") sessionObj.UserLogon "admin", "", "SAMPL", AD_PRIVATE_SESSION, "" Set packages = sessionObj.GetEnabledPackageRevs For each pack in packages a = pack.PackageName() b = pack.RevString() MsgBox (a) MsgBox (b) Next
Perl
use CQPerlExt; #Start a Rational ClearQuest session $Session = CQSession::Build(); $Session->UserLogon("admin","","SAMPL",""); $packages = $Session->GetEnabledPackageRevs(); for($x=0;$x<$packages->Count();$x++){ $pack = $packages->Item($x); $a = $pack->GetPackageName(); $b = $pack->GetRevString(); print "$a $b¥n"; $edefs = $Session->GetEnabledEntityDefs($a,$b); } CQSession::Unbuild($Session);