Конвертация строки вида hhmmss в числовую переменную формата времени

* Небольшой пример, как конвертировать строку вида hhmmss в 
* числовую переменную (формат TIME8).
* Автор: Jim Marks, 21.3.2002.

DATA LIST /time_0 (a6).

BEGIN DATA
001520
123456
230110
END DATA.
STRING #time_00 (A8).
COMPUTE #time_00 =
	CONCAT(SUBSTR(time_0,1,2),':',SUBSTR(time_0,3,2),':',SUBSTR(time_0,5,2)).
COMPUTE time = NUMBER(#time_00,TIME8).
FORMATS time (TIME8).
EXECUTE.