1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
* Конвертирование строк в числовую переменную (случаи явных и предполагаемых знаков после запятой).

* Автор: Raynald Levesque, 23.02.2003.

data list list /str1(a4).
begin data
1.2
20
end data.

/* не ставим предполагаемых десятичных знаков при отсутствии явных */ .
compute n0=number(str1,f4.0).

/* ставим 1 предполагаемый десятичный знак при отсутствии явных */ .
compute n1=number(str1,f4.1).

/* ставим 2 предполагаемых десятичных знака при отсутствии явных */ .
compute n2=number(str1,f4.2)	
LIST.

* Вот результат:
STR1       N0       N1       N2

1.2      1.20     1.20     1.20
20      20.00     2.00      .20

* обратите внимание, на то, как была преобразована строка "20" в разных вариантах.