VBScript
sessionObj.GetListDefNames
Perl
$sessionObj->GetListDefNames();
Para Visual Basic, devuelve un valor Variant que contiene una matriz
cuyos
elementos son series. Cada serie
contiene el nombre de un campo.
Para Perl, devuelve una referencia a una matriz de series.
VBScript
' En este ejemplo se da por supuesto que hay, como mínimo,
' 1 lista dinámica
en la sesión de acceso a la base de datos actual.
set sessionObj = GetSession
sessionObj.UserLogon "admin", "", "SAMPL", AD_PRIVATE_SESSION, ""
' Obtener una lista de los nombres de Listas dinámicas que existen
' en esta base de datos...
DynamicListNamesRef = sessionObj.GetListDefNames
' Para cada una de las listas, imprimir los miembros...
For Each ListName in DynamicListNamesRef
print ListName
' A continuación, para cada lista, obtener los miembros de lista de cada lista.
members = sessionObj.GetListMembers(ListName)
' imprimir los miembros de la lista...
For Each member In members
print member
Next
Next
Perl
# En este ejemplo se da por supuesto que hay, como mínimo, 1 lista dinámica
# en la sesión de acceso a la base de datos actual.
$sessionObj = $entity->GetSession();
$sessionObj->UserLogon("admin","","SAMPL","");
# Obtener una lista de los nombres de Listas dinámicas que existen
# en esta base de datos...
$ListDefNamesREF = $sessionObj->GetListDefNames();
$NListDefNames = scalar @$ListDefNamesREF;
if ( $NListDefNames == 0) {
print "\n"
."There are no dynamic lists in this database.\n"
."Unable to continue.\n"
."Re-invoke this program specifying a user database with some dynamic
lists defined.\n";
exit 1;
} else {
print "\nThere are $NListDefNames dynamic lists in this database:\n";
foreach $ListName (@$ListDefNamesREF) {
print " '$ListName'\n";
}
}
# Para una de las listas, imprimir los miembros...
$ListName = @$ListDefNamesREF[0];
$members = $sessionObj->GetListMembers($ListName);
foreach $member (@$members){
print $member, "\n";
}