Obtiene información sobre creación de réplicas y devuelve un objeto de información.
Si el release de Rational ClearQuest actual ofrece soporte para Rational ClearQuest MultiSite, este método devuelve un objeto Entity de tipo ratl_replicas.
Puede utilizar el objeto devuelto para determinar si se han creado réplicas de la base de datos Rational ClearQuest local con Rational ClearQuest MultiSite. También puede utilizar este método para buscar información sobre la creación de réplicas actual como, por ejemplo, los nombres y las ubicaciones de bases de datos de réplica.
El objeto Replica que devuelve este método es similar a cualquier objeto Entity que devuelve el método GetEntity del objeto Session, lo que significa que se puede utilizar cualquiera de los métodos asociados a un objeto Entity para consultar el objeto Replica.
VBScript
set replicaObj = session.GetLocalReplica
Perl
$replicaObj = session->GetLocalReplica();
Puede crear una consulta con relación al objeto Entity "ratl_replicas" (que contiene la lista de réplicas conocidas de esta base de datos) y comparar el campo "Name" con respecto a replicaName (consulte el ejemplo siguiente) para determinar si la información se aplica a la base de datos local o a una de los demás réplicas. O bien, puede comparar el campo "Host" con localReplicaHost para determinar cómo comunicar con otros programas que tratan la réplica concreta. Por ejemplo, si la réplica no es local, es posible que deba utilizar el correo electrónico.
VBScript
set session = GetSession set replicaObj = session.GetLocalReplica fieldNameList = replicaObj.GetFieldNames For Each fieldName in fieldNameList set fieldInfoObj = GetFieldValue(fieldName) fieldType = fieldInfoObj.GetType fieldValue = fieldInfoObj.GetValue If fieldName = "Name" Then 'replica db name If fieldValue = "<local>" Then 'No se han creado réplicas de la base de datos else localReplicaName = fieldValue End If ElseIf fieldName = "Host" Then 'db host name 'nombre de sistema principal de la base de datos de réplica: replicaHost = fieldValue End If Next Perl use CQPerlExt; my $sess; my $entity; $sess = CQSession::Build(); $sess->UserLogon("admin", "", "MULTI", "CQMS.MS_ACCESS.SITEA"); if ($sess->IsReplicated()) { # print out the local replica name $entity = $sess->GetLocalReplica(); printf "Local replica is %s.\n", $entity->GetDisplayName(); } CQSession::Unbuild($sess);