1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
* Как извлечь почтовый индекс из строки адреса?
*  (он занимает последние 5 символов в строке без учёта пробелов).
* Автор: rlevesque@videotron.ca.

DATA LIST LIST /adress(A50).
BEGIN DATA
"Bob Smith, farmer NY 56215 "
"John Allen, Esq NC 12345"
"John Allen, Esq NC 12A45"
END DATA.

* Неправильный индекс (содержащий нечисловые символы) будет записан как пропуск.

Compute zip=NUMBER(SUBSTR(RTRIM(adress),LENGTH(RTRIM(adress))-4),F5.0).
FORMATS zip(F8.0).
Execute.