(Solo Perl) Per Visual Basic, consultare GetInstalledMasters.
Restituisce l'elenco dei gruppi 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 schema (database principale) elencato in GetInstalledMasterDbs appartenga al gruppo di database nello stesso indice in 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);