(Sólo Perl) Para Visual Basic, consulte GetInstalledMasters.
Devuelve la lista de conjuntos de bases de datos registrados.
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 depósito de esquemas (base de datos maestra) listada en GetInstalledMasterDbs pertenece al conjunto de bases de datos del mismo índice en GetInstalledDbSets
Perl
# Este
programa se ejecuta en el contexto de un
# programa externo (no desde un enganche)...
use CQPerlExt;
# Crear el objeto Session...
$Session = CQSession::Build()
or die "Couldn't create the ClearQuest 'session' object.\n";
# Obtener la lista de bases de datos maestras y conjuntos de bases de datos de
# esta máquina; se debe tener en cuenta que ambas funciones devuelven referencias a
# matrices...
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);