Создать константу для каждого непропущенного значения даты

*(Вопрос) Есть вопрос по синтаксису SPSS. Дана следующая переменная:

VAR1
.
.
.
10/5/2001
.
10/3/2001
.
.

Мне бы надо (в данном случае) создать 2 новые переменные-константы, 
содержащие значения непропущенных дат из переменной VAR1 (10.05.2001 и 10.03.2001).
В более общем случае, как можно создавать переменные со значениями непропущенных
дат из VAR1, когда число непропущенных дат неизвестно?

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


DATA LIST LIST /VAR1(ADATE).
BEGIN DATA
.
.
.
10/5/2001
.
10/3/2001
.
.
END DATA.
LIST.
SAVE OUTFILE='c:\\temp\\mydata.sav'.

FORMATS var1(F14.2).
STRING cst(A8) .

DO IF $CASENUM=1.
+	COMPUTE idx=~MISSING(var1).
+	DO IF ~MISSING(var1).
+		COMPUTE cst=CONCAT('c',LTRIM(STRING(idx,F7.0))).
+		WRITE OUTFILE 'c:\\temp\\syntax.sps' 
			/"COMPUTE ",cst,"=",var1,"."
			/"FORMATS ",cst,"(ADATE11).".
+	END IF.
ELSE IF ~MISSING(var1).
+	COMPUTE idx=LAG(idx)+1.
+	COMPUTE cst=CONCAT('c',LTRIM(STRING(idx,F7.0))).
+	WRITE OUTFILE 'c:\\temp\\syntax.sps' 
		/"COMPUTE ",cst,"=",var1,"."
		/"FORMATS ",cst,"(ADATE11).".
ELSE.
+	COMPUTE idx=LAG(idx).
END IF.
EXECUTE.

GET FILE='c:\\temp\\mydata.sav'.
INCLUDE FILE='c:\\temp\\syntax.sps'.
VARIABLE WIDTH ALL(10).
EXECUTE.