GetEnabledEntityDefs

説明

指定されたパッケージ リビジョンに関して、現在のスキーマで使用可能な EntityDefs コレクション オブジェクトを戻します。

GetEnabledPackageRevs で使用して、現在のユーザー データベースに適用されるパッケージおよびパッケージ リビジョンを検出します。パッケージ名と NULL リビジョンが渡されると、このメソッドは、リビジョンに関係なく (リビジョンをワイルドカードと見なして)、指定されたパッケージがインストールされている EntityDefs を戻します。

構文

VBScript

session.GetEnabledEntityDefs (packageName, revString) 

Perl

$session->GetEnabledEntityDefs(packageName, revString); 
識別子
説明
session
現在のデータベース アクセス セッションを表す Session オブジェクト。
packageName
パッケージ名を含む String。
revString
PackageRev のリビジョン文字列を含む String。
戻り値
現在のパッケージ リビジョンの EntityDefs オブジェクト。

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)

   Set edefs = sessionObj.GetEnabledEntityDefs(a, b)

   For each edef in edefs

      edefName = edef.GetName()

      MsgBox (edefName)

   Next

Next 

Perl

use CQPerlExt;

#Start a 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);



  for($y=0;$y<$edefs->Count();$y++){

    $edef = $edefs->Item($y);

    $name = $edef->GetName();

    print "entitydefname:$name¥n";

  }

}

CQSession::Unbuild($Session); 

フィードバック