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

forward prototypes
global subroutine f_setdbswitch ()
end prototypes

global subroutine f_setdbswitch ();//int ll
//select switch_chkflag into :ll from sys_DB_version;
//Messagebox('1',string(ll))

update sys_DB_version set switch_chkflag=1 using sqlca;
//if sqlca.sqlcode<>0 then
//	Messagebox('',sqlca.sqlerrtext)
//end if
commit using sqlca;

//select switch_chkflag into :ll from sys_DB_version;
//Messagebox('11',string(ll))
//
//select switch_chkflag into :ll from sys_DB_version  using source_sqlca ;
//Messagebox('2',string(ll))
update sys_DB_version set switch_chkflag=0 using source_sqlca;
//if source_sqlca.sqlcode<>0 then
//	Messagebox('',source_sqlca.sqlerrtext)
//end if
commit using source_sqlca ;
//select switch_chkflag into :ll from sys_DB_version  using source_sqlca ;
//Messagebox('22',string(ll))
//
disconnect using  source_sqlca;

end subroutine