lappend hist($setNo,$i,database) $base
}
set oSetNo [lindex $sessionParms 0]
lappend hist($setNo,$i,database) $base
}
set oSetNo [lindex $sessionParms 0]
for {set i 1} {$i <= $hist($oSetNo,0,host)} {incr i} {
set hist($setNo,$i,host) $hist($oSetNo,$i,host)
set hist($setNo,$i,idAuthentication) \
for {set i 1} {$i <= $hist($oSetNo,0,host)} {incr i} {
set hist($setNo,$i,host) $hist($oSetNo,$i,host)
set hist($setNo,$i,idAuthentication) \