Hello,

Some of you might recognize this code from way back...

Im looking to understand and write it so I can use "..ends with" in a pick list of customers.

the below does "begins with .." and ".. contains .."

Thanks for any help..

Subroutine PickList_choose( )

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


If @Left (sFieldName, 2) <> ".." and @Right (sFieldName, 2) = ".." 
     {
           sStart = @left (sFieldName, @in (sFieldName, "..") - 1) + @chr (1)
           sEnd = @left (sFieldName,   @in (sFieldName, "..") - 1) + "zzzzzzz"
     }

If @Right (@(sFieldName), 2) = ".." and @left (@(sFieldName), 2) = ".." 
     {
             vSearch = @replace (@(sFieldName), "..", "") 
             vVals = @XListValues(sApplication, sDisplay) 
             vFinalList = FilterValueList(vVals, vSearch) 
             @(sFieldName) = @UserSelect(vFinalList)
    
           If @in (@(sFieldName), "/") > 0 then
             @(sFieldName) = @Replace (@(sFieldName), "/", "//")
       //writeln (@(sFieldName))
           @(sFieldName) = @xlookup (sApplication, @(sFieldName), "Customers!cust_name", sTarget)
     }

End Subroutine