指定されたパッケージ リビジョンに関して、現在のスキーマで使用可能な EntityDefs コレクション オブジェクトを戻します。
GetEnabledPackageRevs で使用して、現在のユーザー データベースに適用されるパッケージおよびパッケージ リビジョンを検出します。パッケージ名と NULL リビジョンが渡されると、このメソッドは、リビジョンに関係なく (リビジョンをワイルドカードと見なして)、指定されたパッケージがインストールされている EntityDefs を戻します。
VBScript
session.GetEnabledEntityDefs (packageName, revString)
Perl
$session->GetEnabledEntityDefs(packageName, revString);
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) Set edefs = sessionObj.GetEnabledEntityDefs(a, b) For each edef in edefs edefName = edef.GetName() MsgBox (edefName) Next Next
Perl
use CQPerlExt;
#Start a 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);
for($y=0;$y<$edefs->Count();$y++){
$edef = $edefs->Item($y);
$name = $edef->GetName();
print "entitydefname:$name¥n";
}
}
CQSession::Unbuild($Session);