inout reference INOUT_Table_Reference; {Refer to table with the following syntax: table(INOUT_Table_Reference)}
out boolean OUT_Active;
{default form to 'Vendor_Lookup';}
{default window to 'Vendor_Lookup';}

OUT_Active = false;

range table(INOUT_Table_Reference) where "".

{ Get Current User's Class }
'User ID' of table SY_Users_MSTR = 'User ID' of globals;
get table SY_Users_MSTR;
if err() = OKAY then
	if not empty('User Class' of table SY_Users_MSTR) then

		{ Validate User Defined Field }
		focus 'Redisplay Button' of window 'Vendor_Lookup' of form 'Vendor_Lookup'.
		clear window 'Vendor_Lookup_SCROLL' of form 'Vendor_Lookup'.
		range table(INOUT_Table_Reference) where physicalname('User Defined 2' of table PM_Vendor_MSTR) + " = '" + 'User Class' of table SY_Users_MSTR+"'".
		fill window 'Vendor_Lookup_SCROLL' of form 'Vendor_Lookup'.
		focus 'Vendor ID' of window 'Vendor_Lookup' of form 'Vendor_Lookup'.
		OUT_Active = true;

	end if;
end if;