Q5/ws_objects/Ew_datatran.pbl.src/f_get_tntblinfo.srf

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

forward prototypes
global function integer f_get_tntblinfo (string arg_tablename, ref s_sys_tntblinfo arg_s_tntblinfo)
end prototypes

global function integer f_get_tntblinfo (string arg_tablename, ref s_sys_tntblinfo arg_s_tntblinfo);//f_get_tntblinfo

s_sys_tntblinfo ls_tntblinfo
int i,rslt=0

for i=1 to upperbound(s_tntblinfo)
	if lower(arg_tablename)=lower(s_tntblinfo[i].table_name) then
		arg_s_tntblinfo=s_tntblinfo[i]
		rslt=1
		goto ext
	end if
next
ext:
return rslt
end function