project BLF > class Persistence (Progress) > method GetDatabaseName

function returns character

Description

Returns physical database name


Internal usage


unused


program code (program1/progress.p)

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 "".