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

OUT_Active = false;
if isopen(form SOP_Entry) then
	range table(INOUT_Table_Reference) where "".
	'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
			focus 'Redisplay Button' of window 'IV_Location_Lookup' of form 'IV_Location_Lookup'.
			clear window 'Location_Lookup_Scroll' of form 'IV_Location_Lookup'.
			range table(INOUT_Table_Reference) where physicalname('Country' of table IV_Location_SETP) + " = '" + 'User Class' of table SY_Users_MSTR+"'".
			fill window 'Location_Lookup_Scroll' of form 'IV_Location_Lookup'.
			focus 'Location Code' of window 'Location_Lookup_Scroll' of form 'IV_Location_Lookup'.
			OUT_Active = true;
		end if.
	end if.
end if.