* problem is to add records such as * 4 d * 5 e * etc at the end of this file. * Raynald Levesque 2004/04/07 . DATA LIST LIST /var1(F8) var2(A1). BEGIN DATA 1 a 2 b 3 c END DATA. * Identify last case of the file. COMPUTE nobreak=1. ADD FILES FILE=* /BY=nobreak /LAST=last. STRING #alpha(A26). COMPUTE #alpha="abcdefghijklmnopqrstuvwxyz". * Add 3 cases at the end of the file (could use any number instead of 3). LOOP #cnt=1 TO 1 + 3*last . - DO IF #cnt > 1. - COMPUTE var1=var1 + 1. - COMPUTE var2=SUBSTR(#alpha,var1,1). - END IF. - XSAVE OUTFILE='c:\\temp\\extended file.sav' /DROP=nobreak last. END LOOP. EXECUTE. GET FILE='c:\\temp\\extended file.sav'. LIST.