Q5/ws_objects/Ew_mainface.pbl.src/f_switchdb_check.srf

$PBExportHeader$f_switchdb_check.srf
global type f_switchdb_check from function_object
end type

forward prototypes
global function integer f_switchdb_check ()
end prototypes

global function integer f_switchdb_check ();int flag=0
select switch_chkflag into :flag from sys_DB_version;
if isnull(flag) then flag=0
return flag
end function