GetEnabledPackageRevs

説明

スキーマの現在のリビジョンで使用可能な PackageRev セットを戻します。

Session オブジェクトからこのメソッドを呼び出す場合、ユーザー データベースにログオンするときにスキーマ リビジョンは既に認識されています。

代替使用については、このメソッド、この他のオブジェクトの GetEnabledPackageRevsSchemaRev オブジェクトを参照してください。

構文

VBScript

session.GetEnabledPackageRevs

Perl

$session->GetEnabledPackageRevs();
識別子
説明
session
現在のデータベース アクセス セッションを表す Session オブジェクト。
戻り値
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);

フィードバック