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
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);