GetEnabledEntityDefs

설명

제공된 패키지 개정판의 현재 스키마에서 사용되는 EntityDefs 콜렉션 오브젝트를 리턴합니다.

GetEnabledPackageRevs와 함께 사용하여 현재 사용자 데이터베이스에 적용되는 패키지 및 패키지 개정판을 찾습니다. 패키지 이름과 널 개정판을 전달한 경우, 이 메소드는 개정판에 관계 없이 설치된 이름 지정된 패키지가 있는 EntityDefs를 리턴합니다(개정판이 와일드 카드인 것처럼).

구문

VBScript

session.GetEnabledEntityDefs (packageName, revString) 

Perl

$session->GetEnabledEntityDefs(packageName, revString); 
ID
설명
session
현재 database-access 세션을 나타내는 Session 오브젝트입니다.
packageName
패키지 이름이 포함된 문자열입니다.
revString
PackageRev의 개정판 문자열이 포함된 문자열입니다.
Return value
현재 패키지 개정판의 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);

피드백