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
method Progress.CreateDraftInstance
method Progress.SaveInstance

program code (program1/persistence.p)

do viDB = 1 to num-dbs:
   if dbtype(viDB) <> "Progress"
   then return true.
end.

return false.