Devuelve el objeto Workspace de la sesión.
Puede utilizar el objeto Workspace para manipular consultas, gráficas e informes guardados en el espacio de trabajo de Rational ClearQuest.
VBScript
set sessionObj = GetSession ' Obtener el espacio de trabajo para manipular información de informes, ' gráficas y consultas. set wkSpc = sessionObj.GetWorkSpace
Perl
#Obtener una sesión de Rational
ClearQuest
$sessionObj = $entity->GetSession();
#Obtener el espacio de trabajo para manipular información de informes,
#gráficas y consultas
$MyWorkSpace = $sessionObj->GetWorkSpace();
#Obtener la lista de consultas del espacio de trabajo...
$MyQueriesListREF = $MyWorkSpace->GetAllQueriesList();
foreach (@$MyQueriesListREF) {
print ("$_\n");
}
#El objeto QueryDef contiene información sobre una consulta del
#espacio de trabajo, incluido el nombre de la consulta y la cadena de
#caracteres de SQL que se ha utilizado para ejecutar la consulta.
foreach $QueryName (@$MyQueriesListREF) {
# Obtener el QueryDef asociado a la consulta...
$QueryDef = $MyWorkSpace->GetQueryDef($QueryName);
# Compilar el objeto ResultSet para mantener los resultados de
# la consulta...
$ResultSet = $Session->BuildResultSet($QueryDef);
# Ejecutar la consulta...
$ResultSet->Execute();
# Obtener el nombre corto de la consulta (sin el nombre de vía de acceso)...
@QueryPath = split('/', $QueryName);
$QueryShortName = @QueryPath[$#QueryPath];
# Procesar/visualizar los resultados de la consulta...
print "\n" if ($PrintDetails);
print "$QueryShortName: ";
for ($N = 0; (($ResultSet->MoveNext()) ==
$CQPerlExt::CQ_SUCCESS); $N++) {
if ($PrintDetails) {
printresultrow();
}
}
print "$N\n";
}