Q5/ws_objects/cw_bsnobj.pbl.src/f_rst_cropname.srf

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

forward prototypes
global function string f_rst_cropname ()
end prototypes

global function string f_rst_cropname ();//f_rst_Cropname
return s_sys_accset.cropname
end function