假如檔案形式如下:有26間公司(A-Z)
name   time    r
A    200001   7
.
A    201312   2
B    200001   -5
.
B    201312   6
.
Z    201312   8

想分開讀取每間公司去跑迴圈，可是不知道怎麼寫。

如果只跑一家公司檔案file如下
name   time    r
A    200001   7
.
A    201312   2

程式碼如下:

%macro JT(h);

%do i=1 %to &h;
data file;
set file;
r&i=lag&i(r);
if r&i>0 then rs=1; else rs=-1;
run;

proc reg data=f outest=para tableout noprint;
model r=rs/white;
run;

proc append base=pic data=para;
quit;
%end;
%mend;

%JT(60);

還請各位高手解惑，謝謝。