SAS macro to split dataset by the number of Observations specified

Suppose there was a large dataset….This SAS macro program splits the dataset by the number of observations mentioned as a parameter……

/**

Usage of the Macro-

%splitdsnbyobs(DatasetName, No ofobservation to split by)

**/

%macro splitdsnbyobs(dsn,splitby);

%RecsInDS(&dsn,no_obs); /* Read more about this macro at http://sastechies.blogspot.com/2009/11/ways-to-count-number-of-obs-in-dataset.html */

/*calculate the final obs for each do loop iteration*/

%macro finalobs;

%if %sysfunc(ceil(%eval(&i * &splitby.))) gt &no_obs %then &no_obs;

%else %sysfunc(ceil(%eval(&i * &splitby.)));

%mend finalobs;

/* keep the observations from firstobs= and obs=*/

%do i=1 %to %sysfunc(ceil(&no_obs/&splitby));

data &dsn.&i.;

set &dsn (firstobs=%sysfunc(floor(%eval((&i.-1)*&splitby.+1))) obs=%finalobs);

run;

%end;

%mend splitdsnbyobs;

/* Eg. Create a Dsn with 101 observations */

data loops;

do i=1 to 101;

output;

end;

run;

options symbolgen mprint;

/*Now call the macro to split the observations every 20 records*/

%splitdsnbyobs(loops,20);

This will output 6 datasets with 20,20,20,20,20,1 observations respectively…