(Solo Perl) Per Visual Basic, consultare GetInstalledMasters.
Restituisce l'elenco delle serie di database registrati.
Il valore restituito è un riferimento a un array. I valori restituiti di GetInstalledDbSets e GetInstalledMasterDbs contengono sempre lo stesso numero di stringhe. Il contenuto di entrambi viene ordinato in modo che ciascun repository di schemi (database principale) elencato in GetInstalledMasterDbs appartenga alla serie di database nello stesso indice in GetInstalledDbSets
Perl
$session->GetInstalledDbSets();
Perl
# This program runs in the context of an
# 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);