*(Q) I have a data file which includes name group identification var1 var2 and var3. * For each set of name group identification i need to produce a list of all cases within that set. I need to print the "name group identification" at the top of each listing. How can this be automated. *(A) Posted to SPSSX-L in July 2002 by Raynald Levesque. * http://pages.infinit.net/rlevesqu/index.htm. SET MPRINT=yes. DATA LIST LIST /name(A8) grp id var1 var2 var3. BEGIN DATA a 1 1 1 1 1 a 1 1 2 2 2 a 1 2 7 7 7 a 1 2 2 2 2 b 2 3 4 4 4 b 2 3 5 5 4 END DATA. LIST. SAVE OUTFILE='c:\\temp\\data.sav'. *//////////////. DEFINE !print(!POS=!TOKENS(1) /!POS=!TOKENSS(1) /!POS=!TOKENSS(1)) TEMPORARY. SELECT IF RTRIM(name)=RTRIM(!1) & grp=!2 & id=!3. SUMMARIZE /TABLES=name grp id /FORMAT=VALIDLIST NOCASENUM TOTAL /TITLE=!QUOTE(!CONCAT(!UNQUOTE(!1),' ',!2,' ',!3)) /MISSING=VARIABLE /CELLS=COUNT . !ENDDEFINE. *//////////////. AUTORECODE VARIABLE name /INTO namecode. SORT CASES BY namecode grp id. COMPUTE casenb=$CASENUM. RANK VARIABLES=casenb BY namecode grp id /RANK INTO r. SELECT IF r=1. WRITE OUTFILE='c:\\temp\\syntax.sps' /'!print "'name'" 'grp' 'id'.'. EXECUTE. GET FILE='c:\\temp\\data.sav'. INCLUDE 'c:\\temp\\syntax.sps'.