project BLF > class Persistence Layer > method DataServerActive
function returns logical
Description
Returns true when installation is using Oracle (or sqlserver) data server.
Returns false when installation is using Progress databases.
Internal usage
BLF
program code (program1/persistence.p)
do viDB = 1 to num-dbs:
if dbtype(viDB) <> "Progress"
then return true.
end.
return false.