Returns the PackageRev set that is enabled in the current revision of the schema.
When you call this method from the Session object, the schema revision is already known when you log onto the user database.
See this method, GetEnabledPackageRevs, in its other object, SchemaRev Object, for an alternative use.
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);