Q5/ws_objects/Ew_bsnobj.pbl.src/f_get_dwprint_dynamic_chname.srf

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

forward prototypes
global function string f_get_dwprint_dynamic_chname (string arg_oldname, string arg_winname)
end prototypes

global function string f_get_dwprint_dynamic_chname (string arg_oldname, string arg_winname);String rslt_str = ''

IF ARG_OLDNAME = '' OR IsNull(ARG_OLDNAME) THEN
	rslt_str = ''
	GOTO ext
END IF

SELECT top 1 dft_new_dwname
	INTO :rslt_str
	FROM sys_dft_dwprint_dynamic
	WHERE dwtype = :arg_winname
	AND chnname = :ARG_OLDNAME
order by dwprintid desc;
IF sqlca.SQLCode <> 0 THEN
	rslt_str = ''
	GOTO ext
END IF
ext:
RETURN rslt_str

end function