(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.
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);