Пометить, если последние символы в строке - 'Esq'

* Пометить наблюдения, где последние символы составляют "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.