GetInstalledMasterDbs

Description

(Sólo Perl) Para Visual Basic, consulte GetInstalledMasters.

Devuelve la lista de repositorios de esquemas registrados (bases de datos maestras).

El valor devuelto es una referencia de matriz. Los valores devueltos de GetInstalledDbSets y GetInstalledMasterDbs siempre contienen el mismo número de series. El contenido de ambos se ordena de modo que cada repositorio de esquemas (base de datos maestra) listada en GetInstalledMasterDbs pertenece al conjunto de bases de datos del mismo índice en GetInstalledDbSets.

Sintaxis

Perl

$session->GetInstalledMasterDbs(); 
Identificador
Description
session
El objeto Session que representa la sesión de acceso a la base de datos actual.
Valor de retorno
Devuelve una referencia a una matriz de series para los conjuntos de bases de datos maestras.

Ejemplos

Perl

# This program runs in the context of a
# external  program (not from within a hook)...

use CQPerlExt;

# Create the session object...
$Session = CQSession::Build()
or die "Couldn't create the ClearQuest 'session' object.\n";

# Get the list of master databases and dbsets installed on this
# machine; note that both functions return references to
# arrays...

my($MasterDBsREF) = $Session->GetInstalledMasterDbs();
my(@MasterDBs) = @$MasterDBsREF;
my($DbSetsREF) = $Session->GetInstalledDbSets();
my(@DbSets) = @$DbSetsREF;
my($N) = $#MasterDBs;

printf ("There are %d DbSet(s) installed on this machine.\n", ($N+1));

for (my($i)=0; $i <= $N; $i++) {
print "DbSet #" . $i . ": " .
" DbSet=" . $DbSets[$i] .
" MasterDB=" . $MasterDBs[$i] .
"\n";
}

CQSession::Unbuild($Session); 

Comentarios