1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
* Пометить наблюдения, где последние символы составляют "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.