제공된 패키지 개정판의 현재 스키마에서 사용되는 EntityDefs 콜렉션 오브젝트를 리턴합니다.
GetEnabledPackageRevs와 함께 사용하여 현재 사용자 데이터베이스에 적용되는 패키지 및 패키지 개정판을 찾습니다. 패키지 이름과 널 개정판을 전달한 경우, 이 메소드는 개정판에 관계 없이 설치된 이름 지정된 패키지가 있는 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);