* Пометить наблюдения, где последние символы составляют "ESQ" или "ESQ." или вариации, такие как "Esq". * Автор: Ray. DATA LIST LIST /word(A25). BEGIN DATA "Bob Smith, farmer" "John Allen, Esq" "John Allen, Esq." "Billy Joe, MD" "Batman Esq." "Batman ESQ. " "Ray LevESQue" END DATA. Compute flag=ANY(SUBSTR(UPCASE(RTRIM(word)),LENGTH(RTRIM(word))-3.),' ESQ','ESQ.'). * Обратите внимание, что здесь функция INDEX не может использоваться, так как * она найдёт все сочетания ESQ, которые могут стоять и не в конце строки. EXECUTE.