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

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

forward prototypes
global function integer f_find_cusmtrlname (Int arg_cusid, Int arg_mtrlid, ref string arg_cusmtrlcode, ref string arg_cusmtrlname, ref string arg_cusmtrlmode)
end prototypes

global function integer f_find_cusmtrlname (Int arg_cusid, Int arg_mtrlid, ref string arg_cusmtrlcode, ref string arg_cusmtrlname, ref string arg_cusmtrlmode);Int rslt = 1

SELECT cusmtrlcode, cusmtrlname, cusmtrlmode
	into :arg_cusmtrlcode, :arg_cusmtrlname, :arg_cusmtrlmode
	FROM  u_cusmtrlname
where cusid = :arg_cusid and mtrlid = :arg_mtrlid;
IF sqlca.SQLCode <> 0 THEN
	rslt = 0
	GOTO ext
END IF



ext:
RETURN rslt



end function