Q5/ws_objects/Ew_rs.pbl.src/f_getserdate.srf

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

forward prototypes
global function datetime f_getserdate ()
end prototypes

global function datetime f_getserdate ();datetime serdate
declare  getserdate cursor for
select getdate();
open getserdate;
fetch getserdate into :serdate;
close getserdate;

return serdate
end function