(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 repositorio de esquemas (base de datos maestra) listada en GetInstalledMasterDbs pertenece al conjunto de bases de datos del mismo índice en 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);