Restituisce la serie PackageRev abilitata nella versione corrente dello schema.
Quando questo metodo viene richiamato dall'oggetto Session, la revisione dello schema è già noto quando si accede al database utente.
Consultare questo metodo, GetEnabledPackageRevs, nell'altro oggetto relativo, Oggetto SchemaRev, per un utilizzo alternativo.
VBScript
session.GetEnabledPackageRevs
Perl
$session->GetEnabledPackageRevs();
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);