Save file1 file2file3 etc by macro

* To save file1, file2, file3,etc. The trick is in the "save out" line.

DEFINE !Chart (!POS !CMDEND).
!LET !x=!NULL
!DO !vari !IN (!1).
!LET !x=!CONCAT(!x,"x")
compute NEWVAR=SQRT(!varI).
save out=!CONCAT("TEMP",!LENGTH(!x),".sav") / KEEP !vari newvar . !DOEND.
!ENDDEFINE.

!Chart A B C D .

*David Marso.
*SPSS Consultant.