Удалить переменные, все значения которых равны нулю

* (Вопрос) Как можно автоматически удалить переменные, все непропущенные значения которых равны нулю?
* (Ответ) Размещён в SPSSX-L. Автор: Raynald Levesque, 09.01.2004.

* Сохраняем перечень исследуемых переменных в макрос и затем выполняем синтаксис.

define !varlist()v1 v2 v3!enddefine.

data list list / v1   v2   v3.
begin data
0     .      1
1     0      1
0     0      0
0     0      0
end data.
save outfile='c:\\temp\\data.sav'.

compute nobreak=1.
aggregate outfile='c:\\temp\\file1.sav'
	/pre
	/break=nobreak
	/!varlist=MAX(!varlist).
aggregate outfile=*
	/pre
	/break=nobreak
	/!varlist=MIN(!varlist).
add files file=*
	/file='c:\\temp\\file1.sav'.
execute.
aggregate outfile=*
	/pre
	/break=nobreak
	/!varlist=SUM(!varlist).
flip.
select if var001=0.
do if $casenum=1.
- write outfile='c:\\temp\\delete var.sps' /'add files file=* /drop='case_lbl.
else. 
- write outfile='c:\\temp\\delete var.sps' /' 'case_lbl.
end if.
execute.

get file='c:\\temp\\data.sav'.
include 'c:\\temp\\delete var.sps' .
execute.