do while true: viDBC = viDBC + 1. if ldbname(viDBC) = ? then leave. if can-find (first tSequenceList where tSequenceList.tcDatabaseName = ldbname(viDBC)) then return pdbname(viDBC). end. return "".