Ottiene le informazioni sulla replica e restituisce un oggetto Information.
Se il rilascio corrente di Rational ClearQuest supporta Rational ClearQuest MultiSite, allora questo metodo restituisce un oggetto Entity di tipo ratl_replicas.
È possibile utilizzare l'oggetto restituito per determinare se il database locale Rational ClearQuest è stato duplicato con Rational ClearQuest MultiSite. È inoltre possibile utilizzare questo metodo per trovare le informazioni sulla replica corrente, come ad esempio i nomi e le ubicazioni dei database di replica.
L'oggetto Replica che questo metodo restituisce è come un qualsiasi oggetto Entity restituito dal metodo GetEntity sull'oggetto Session. Ciò indica che è possibile utilizzare uno qualsiasi dei metodi associati all'oggetto Entity per interrogare l'oggetto Replica.
VBScript
set replicaObj = session.GetLocalReplica
Perl
$replicaObj = session->GetLocalReplica();
È possibile creare una query all'oggetto Entity "ratl_replicas" (che contiene l'elenco delle repliche note a questo database) e confrontare il campo "Name" in replicaName (consultare il seguente esempio) per determinare se le informazioni vengono applicate al database locale o a una delle altre repliche. Oppure è possibile confrontare il campo "Host" a localReplicaHost per determinare in che modo potrebbe essere necessario comunicare con altri programmi che gestiscono la replica particolare. Ad esempio, se la replica non è locale, potrebbe essere necessario utilizzare l'e-mail.
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 'Database has not been replicated else localReplicaName = fieldValue End If ElseIf fieldName = "Host" Then 'db host name 'host name of replica database: 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);