Splitting a Large SAS® Data Set

原文載點：http://www2.sas.com/proceedings/sugi28/075-28.pdf

當處理龐大檔案，若沒有很強的硬體設備，通常我們會建議將檔案稍做一些切割以便分別處理。但 SAS 中沒有任何指令是可以任意切割資料，即便最簡單的「均分」都沒有指令提供。Selvaratnam Sridharma 於 2003 年的 SUGI 28 發表了一篇關於切割資料的文章，並寫了兩個小 macro 分享給大家。


The %split1 Macro

第一個 macro 程式可供使用者將資料切割成數塊，每一塊包含 n 個觀測值，SAS 會自動命名新的小資料集，而切剩的資料會放進最後一個小資料集中（此資料的觀測值總數就會小於 n）。

%macro split1(num);
data _null_;
if 0 then set orig nobs=count;
call symput('numobs',put(count,8.));
run;
%let m=%sysevalf(&numobs/&num,ceil);
data %do J=1 %to &m ; orig_&J %end; ;
set orig;
%do I=1 %to &m;
if %eval(&num*(&i-1)) <_n_ style="color: rgb(51, 51, 255);">%mend split1;

範例：

data orig;
do i =1 to 84;
output;
end;
run;
%split1(18);

資料集 orig 會被切割成五塊（orig_1~orig_5）。前四塊各含 18 個觀測值，最後一個則只有 15 個觀測值。

The %split2 Macro

第二個 macro 會將檔案切成 n 塊，每塊的觀測值會相等。同樣地，切剩的資料仍舊會被丟到最後一個資料集中。

%macro split2(num);
data _null_;
if 0 then set orig nobs=count;
call symput('numobs',put(count,8.));
run;
%let n=%sysevalf(&numobs/&num,ceil);
data %do J=1 %to &num ; orig_&J %end; ;
set orig;
%do I=1 %to #
if %eval(&n*(&i-1)) <_n_ style="color: rgb(51, 51, 255);">%mend split2;

範例：

data orig;
do i =1 to 85;
output;
end;
run;
%split2(6);

資料集 orig 會被切成六塊（orig_1~orig_6）。前五塊各含 15 個觀測值，最後一個資料集則只有 10 個觀測值。

Contact Information
Selvaratnam Sridharma
U.S. Census Bureau
4700 Silver Hill Road, Stop 8400
Washington, D.C. 20233
301-763-5398