*(Q) The following macro was posted (without the 4 lines of macro command at the beginning of the macro). The author was looking for a way to insert commas between the names of the variables given as input to the macro. *(A) Posted to SPSSX-L on 2002/4/11 by Ray. * Web site www.spsstools.net . SET MPRINT=no. define impute (!positional !enclose ('(',')') / !positional !enclose('(',')') / !positional !enclose ('(',')')) !LET !varlist=!HEAD(!1) !DO !var !IN (!TAIL(!1)) !LET !varlist=!CONCAT(!varlist,',',!var) !DOEND COUNT #mitems = !1 (MISSING). COUNT #items = !1 (lo thru hi). compute #diff = 1 - (#mitems / #items). DO IF (#diff LT .75). compute #FILL = MEAN(!varlist). END IF. DO REPEAT x = !1. if missing(x) x = #fill. END REPEAT. compute scale1 = SUM(!varlist ). EXECUTE . !enddefine. ******************************************************************. SET MPRINT=yes. * call the macro. impute (q2a q2b q2c).