DATA LIST LIST /var1(A8) var2(A8) nb(F8.0).
BEGIN DATA
a c 3
a d 4
b c 4
b d 2
END DATA.
LIST.

LOOP cnt=1 TO nb.
- XSAVE OUTFILE='c:\temp\temp.sav' /KEEP=var1 TO var2.
END LOOP.

EXECUTE.
GET FILE='c:\temp\temp.sav'.