Сцепление цифр из разных переменных в одну строку

*(Вопрос) Как мне автоматически посчитать переменную "newvar" таким
* образом, как она показана в таблице ниже?.

*(Ответ) Размещён в SPSSX-L, 4.11.2002. Автор: rlevesque@videotron.ca.


DATA LIST LIST /v1  v2  v3  v4  newvar.
BEGIN DATA.
1   2   .    4   124
1   .    3   .    13
.    2   .    .    2
1   2   3     .  123
.  .      3   .    3
1   2    .   4   124
END DATA.
LIST.

* первый метод (цикл LOOP).
VECTOR v=v1 TO v4.
COMPUTE newvar2=0.
LOOP #cnt=1 TO 4.
IF ~MISSING(v(#cnt)) newvar2=newvar2*10 + v(#cnt).
END LOOP.

* второй метод (цикл DO REPEAT).
COMPUTE newvar3=0.
DO REPEAT v=v1 TO v4.
IF ~MISSING(v) newvar3=newvar3*10 + v.
END REPEAT.
EXECUTE.