Code

// Finds all values in vVals that contain vMatch. Returns matching
// values as a semicolon separated list.
Function FilterValueList(var vVals as String, vMatch as String) as String
var vList as String
var vItem as String

	vList = ""
	While @Len(vVals) > 0
	{
		vItem = Split(vVals, ";")
		If @Instr(vItem, vMatch) > 0
		{
			If @Len(vList) > 0
			{
				vList = vList + ";"
			}
			vList = vList + vItem
		}
	}
	return(vList)
End Function


var vVals as String
var vFinalList as String
var vSearch as String

	vSearch = "op"	// Set the search string to whatever you want to match
	vFinalList = ""
	vVals = @XListValues(@FN, "Company")	// Get all the Company names
	vFinalList = FilterValueList(vVals, vSearch)
	WriteLn(@UserSelect(vFinalList))