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

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

forward prototypes
global function string f_find_sortset (string arg_dwname)
end prototypes

global function string f_find_sortset (string arg_dwname);String sortStr

IF arg_dwname = "" THEN RETURN ""


Select sortStr INTO :sortStr from u_sortSet
where dwname = :arg_dwname;
IF SQLCA.SQLCODE <> 0 THEN
	sortStr = ""
END IF



Return sortStr
end function