결함 목록 가져오기 및 레코드 수정

다음 Perl 예제는 Rational ClearQuest 사용자 데이터베이스의 모든 결함 레코드를 나열하고 레코드 중 하나를 수정하는 외부 프로그램입니다. 프로그램은 다음을 수행합니다.

Perl

use CQPerlExt;


#Getting the session

my $session = CQSession::Build();

CQSession::UserLogon ($session, "admin", "", "SAMPL", "Lab3");



my $querydef = $session->BuildQuery ("defect");

$querydef->BuildField ("id");

$querydef->BuildField ("headline");

my $resultset = $session->BuildResultSet ($querydef);

$resultset->Execute();



while (($resultset->MoveNext()) == 1)

{

   $id   = $resultset->GetColumnValue(1);

   $rec  = $session->GetEntity("Defect", $id);

   $head = $rec->GetFieldValue("Headline")->GetValue();

   $state= $rec->GetFieldValue("State")->GetValue();

   print "$id, $head, $state. \n";



   if ($id eq "SAMPL00000012") {

     $session->EditEntity($rec, "Modify");

     $rec->SetFieldValue("description", "This defect has been modified.");

     $rec->Validate();

     $rec->Commit();

   }

}

CQSession::Unbuild($session); 

피드백