Q5/ws_objects/Ew_publ903.pbl.src/f_get_dft_dwname.srf

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

forward prototypes
global function string f_get_dft_dwname (string arg_old_dwname)
end prototypes

global function string f_get_dft_dwname (string arg_old_dwname);string rslt_dwname

select dft_new_dwname into :rslt_dwname
from sys_dft_dwprint
where dft_old_dwname = :arg_old_dwname;
if sqlca.sqlcode <> 0 or isnull(rslt_dwname) then	
	rslt_dwname = ''
end if

return rslt_dwname
end function