GetEnabledPackageRevs

설명

스키마의 현재 개정판에서 사용 가능한 PackageRev 세트를 리턴합니다.

Session 오브젝트에서 이 메소드를 호출하는 경우 사용자 데이터베이스에 로그온할 때 스키마 개정판을 이미 알고 있습니다.

대체 사용을 위해서는 다른 오브젝트이 SchemaRev 오브젝트GetEnabledPackageRevs 메소드를 참조하십시오.

구문

VBScript

session.GetEnabledPackageRevs

Perl

$session->GetEnabledPackageRevs();
ID
설명
session
현재 database-access 세션을 나타내는 Session 오브젝트입니다.
Return value
PackageRev 세트가 포함된 PackageRevs 콜렉션 오브젝트를 리턴합니다.

예제

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

피드백