data test;
input fld1$ fld2$;
cards;
1 a
2 a
1 a
2 a
3 a
;
run;
proc sort data=test NODUPKEY out=tab;
by fld1 fld2;
run;
proc print data=tab;
run;
data _null_;
set tab;
put fld1= fld2=;
CALL EXECUTE("data tmp"||strip(_n_)||"; set test;where fld1='"||strip(fld1)||"' and fld2='"||strip(fld2)||"';run;");
run;