Obtención de una lista de defectos y modificación de un registro

El ejemplo de Perl siguiente es un programa externo que lista todos los registros de defectos de una base de datos de usuario de Rational ClearQuest modifica uno de los registros. El programa:

Perl

use CQPerlExt;



#Obtención de la sesión

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

Feedback