ItemsIn (List, (P_RETAIL_PRICE_LIST_ITEM List_item) ->                    
  if Find (Title_pointer, Keyword, STR_ANY_CASE)
     / Title_pointer = GetTitle (List_item)
  +
    Set (Target, Title_pointer); break
  ;
)