proc sql 和 macro 是两个不同的东西，我觉得不该放在一起来讲。
proc sql只是base sas里的一个proc而已。其它procs照样用途也很广泛，比如说 proc means等等。
很多人喜欢用sql，可能跟他们之前的其它数据库编程有关。
不管怎么样，把sas的基本语言学扎实，才是最重要的。

Thanks guys

请大家继续发表意见

1。proc sql解决的是两个以上数据文件相互合并的问题。用proc sql能更好的解决merge;by;所存在的不足；
举个例子来说（合并bp和filled，用merge和sql结果是不一样的，在这个例子中，sql比merge更完整全面，但增加了重复性，需要在合并后，剔除那些不必要和多余的重复纪录；但merge却可能完全丢失一些应该收录的纪录而影响最重的结果）：
*title1 'Using BP Reading to Select Dates of Fills';
data BP;
   input id BPlstdt date7.;
   format BPlstdt date7.;
cards;
1 13JUN00
1 01MAY01
2 15SEP00
2 07MAY01
3 04MAY01
;

data fills;
   input id frp_date date7.;
   format frp_date date7.;
cards;
1 19JAN00
1 20MAR00
1 21APR01
1 22JUL01
2 23OCT00
2 24FEB01
2 25AUG01
3 26JAN00
3 27MAR00
3 28DEC00
;
run;

*  *  *  *  *;
*title2 '* Complete Merge *';
data final_data0;
   merge BP fills;
   by id;
proc print data=final_data0;
   var id frp_date BPlstdt;
run;

*  *  *  *  *;
*title2 '* 1st Way: Date Criterion, Current Way *';
data combined;
   merge BP fills;
   by id;
   date_difference=BPlstdt-frp_date;
data final_data1;
   set combined;
   if abs(date_difference)<=365;
proc print data=final_data1;
   var id frp_date BPlstdt date_difference;
   *title4 'NOTE:  For Patient #1, fill for 20MAR00 is not included although it should be';
run;

*  *  *  *  *;
*title2 '* 2nd Way: Date Criterion - For each patient, match every BP reading with every fill *';
* this way allows a fill to qualify if any of the BP readings is within 1 year;
proc sql;
   CREATE TABLE combined AS
   SELECT BP.*, fills.*
   FROM BP INNER JOIN fills
   ON BP.ID = fills.ID;
data combined;
   set combined;
   date_difference=BPlstdt-frp_date;
proc print data=combined;
   var id frp_date BPlstdt date_difference;
   *title4 'Result of Using PROC SQL - MANY RECORDS';
run;

data temp;
   set combined;
   if abs(date_difference)<=365;
proc print data=temp;
   var id frp_date BPlstdt date_difference;
   *title4 'Records Meeting Date Criterion, ALLOWING DUPLICATES';
run;

* remove duplicates of fill records.  Note that BP date is irrelevant at this point;
proc sort data=temp out=final_data2 nodupkey;
   by id frp_date;
proc print data=final_data2;
   var id frp_date BPlstdt date_difference;
   *title4 'Records Meeting Date Criterion, DUPLICATES REMOVED';
run;
2。在临床试验中可能会有很多的不同的样本或不同的参数进行相关相应的重复试验，这时候选用macro作为一个统一的（templete）模式就会十分省力，写一段macro可以会重复使用以避免写出很多重复的语句而精炼程序：
%macro table1(in1,in2,out,var1,var2,var3,var4,var5);
data &out(keep=id &var1 &var2 &var3);
   merge den_dm0006a1c2(in=a) &in1(keep=id in=b)
         &in2(keep=id in=c);
   by id;
   array x(*) &var1 &var2 &var3;
   length &var1 &var2 &var3 3;
   if a;
   do i=1 to dim(x);
      if x=. then x{i}=0;
   end;drop i;
   if &var4=1 and &var5=1 and b then &var1=1;
   if &var4=1 and &var5=1 and c and not b then &var2=1;
   if &var4=1 and &var5=1 and not b and not c then &var3=1;
   if &var4=1 and &var5=1 then output &out;
proc freq data=&out;
   tables &var1 &var2 &var3;
run;
%mend table1;
%table1(low_a1c00cmb,ctr_ind00cmb,prvl_ongo00,prvl_ongo_low_a1c00,
        prvl_ongo_ctr_ind00,prvl_ongo_no_mtg00,prvl00,ongo00)
%table1(low_a1c01cmb,ctr_ind01cmb,prvl_ongo01,prvl_ongo_low_a1c01,
        prvl_ongo_ctr_ind01,prvl_ongo_no_mtg01,prvl01,ongo01)
%table1(low_a1c02cmb,ctr_ind02cmb,prvl_ongo02,prvl_ongo_low_a1c02,
        prvl_ongo_ctr_ind02,prvl_ongo_no_mtg02,prvl02,ongo02)
%table1(low_a1c03cmb,ctr_ind03cmb,prvl_ongo03,prvl_ongo_low_a1c03,
        prvl_ongo_ctr_ind03,prvl_ongo_no_mtg03,prvl03,ongo03)
%table1(low_a1c04cmb,ctr_ind04cmb,prvl_ongo04,prvl_ongo_low_a1c04,
        prvl_ongo_ctr_ind04,prvl_ongo_no_mtg04,prvl04,ongo04)
%table1(low_a1c05cmb,ctr_ind05cmb,prvl_ongo05,prvl_ongo_low_a1c05,
        prvl_ongo_ctr_ind05,prvl_ongo_no_mtg05,prvl05,ongo05)
%table1(low_a1c06cmb,ctr_ind06cmb,prvl_ongo06,prvl_ongo_low_a1c06,
        prvl_ongo_ctr_ind06,prvl_ongo_no_mtg06,prvl06,ongo06)
%table1(low_a1c00cmb,ctr_ind00cmb,prvl_new00,prvl_new_low_a1c00,
        prvl_new_ctr_ind00,prvl_new_no_mtg00,prvl00,new00)*0;
%table1(low_a1c01cmb,ctr_ind01cmb,prvl_new01,prvl_new_low_a1c01,
        prvl_new_ctr_ind01,prvl_new_no_mtg01,prvl01,new01)*0;
%table1(low_a1c02cmb,ctr_ind02cmb,prvl_new02,prvl_new_low_a1c02,
        prvl_new_ctr_ind02,prvl_new_no_mtg02,prvl02,new02)*0;
%table1(low_a1c03cmb,ctr_ind03cmb,prvl_new03,prvl_new_low_a1c03,
        prvl_new_ctr_ind03,prvl_new_no_mtg03,prvl03,new03)*0;
%table1(low_a1c04cmb,ctr_ind04cmb,prvl_new04,prvl_new_low_a1c04,
        prvl_new_ctr_ind04,prvl_new_no_mtg04,prvl04,new04)*0;
%table1(low_a1c05cmb,ctr_ind05cmb,prvl_new05,prvl_new_low_a1c05,
        prvl_new_ctr_ind05,prvl_new_no_mtg05,prvl05,new05)*0;
%table1(low_a1c06cmb,ctr_ind06cmb,prvl_new06,prvl_new_low_a1c06,
        prvl_new_ctr_ind06,prvl_new_no_mtg06,prvl06,new06)*0;
%table1(low_a1c00cmb,ctr_ind00cmb,incd_ongo00,incd_ongo_low_a1c00,
        incd_ongo_ctr_ind00,incd_ongo_no_mtg00,incd00,ongo00)
%table1(low_a1c01cmb,ctr_ind01cmb,incd_ongo01,incd_ongo_low_a1c01,
        incd_ongo_ctr_ind01,incd_ongo_no_mtg01,incd01,ongo01)
%table1(low_a1c02cmb,ctr_ind02cmb,incd_ongo02,incd_ongo_low_a1c02,
        incd_ongo_ctr_ind02,incd_ongo_no_mtg02,incd02,ongo02)
%table1(low_a1c03cmb,ctr_ind03cmb,incd_ongo03,incd_ongo_low_a1c03,
        incd_ongo_ctr_ind03,incd_ongo_no_mtg03,incd03,ongo03)
%table1(low_a1c04cmb,ctr_ind04cmb,incd_ongo04,incd_ongo_low_a1c04,
        incd_ongo_ctr_ind04,incd_ongo_no_mtg04,incd04,ongo04)
%table1(low_a1c05cmb,ctr_ind05cmb,incd_ongo05,incd_ongo_low_a1c05,
        incd_ongo_ctr_ind05,incd_ongo_no_mtg05,incd05,ongo05)
%table1(low_a1c06cmb,ctr_ind06cmb,incd_ongo06,incd_ongo_low_a1c06,
        incd_ongo_ctr_ind06,incd_ongo_no_mtg06,incd06,ongo06)
%table1(low_a1c00cmb,ctr_ind00cmb,incd_new00,incd_new_low_a1c00,
        incd_new_ctr_ind00,incd_new_no_mtg00,incd00,new00)
%table1(low_a1c01cmb,ctr_ind01cmb,incd_new01,incd_new_low_a1c01,
        incd_new_ctr_ind01,incd_new_no_mtg01,incd01,new01)
%table1(low_a1c02cmb,ctr_ind02cmb,incd_new02,incd_new_low_a1c02,
        incd_new_ctr_ind02,incd_new_no_mtg02,incd02,new02)
%table1(low_a1c03cmb,ctr_ind03cmb,incd_new03,incd_new_low_a1c03,
        incd_new_ctr_ind03,incd_new_no_mtg03,incd03,new03)
%table1(low_a1c04cmb,ctr_ind04cmb,incd_new04,incd_new_low_a1c04,
        incd_new_ctr_ind04,incd_new_no_mtg04,incd04,new04)
%table1(low_a1c05cmb,ctr_ind05cmb,incd_new05,incd_new_low_a1c05,
        incd_new_ctr_ind05,incd_new_no_mtg05,incd05,new05)
%table1(low_a1c06cmb,ctr_ind06cmb,incd_new06,incd_new_low_a1c06,
        incd_new_ctr_ind06,incd_new_no_mtg06,incd06,new06)

楼上的第二个MACRO代码，看起来也不是那么很简洁啊。这些都是你自己编的么？

初级的？Data Management吗？

不是，是指初级编程

我想macro写得能否简洁还要看各自需要（涉及多少变量，需要什么样的输出结果和变量，有没有时间上的重复），如果有时间上的重复，当然还可以写成两层，甚至或三层macro。尽管我写的macro中有时间上的重复，可以写成两层macro。但我写程序不愿花更多时间去玩俏，实用就成。没有必要过分挑战自己的编程能力和水平，甚至花更多精力和时间来为所写macro正确性和合理性去debug，我认为如果只是为了卖弄技巧，那完全划不来！

更何况很多时候我的顶头上司还想知道我的程序是否合乎他的需要，如果他不能明白，我还要花很多时间为他解释，那不是瞎耽误工夫？有时写程序，不单为最后得到的结果，也不光为自己看，更多时候还需要给别人看，给自己的顶头上司或监察机构看，特别是做临床药检试验（clinical trials），我想更是如此吧？

有趣的是现在有些人为了保住铁饭碗，一向为编程员所提倡的简明直接易懂的程序管理方法，现在却变得更让他人不易看懂。这倒是一个很有趣的话题！现在网上有很多这样的javascript，perl，java，c，c++ code，不知道有多少人对此感兴趣？或有谁想挑战自己编程的能力和水平吗？那你可以解释下述c程序吗？最后打印出的结果是什么？或是你也想尝一下用这种思维来写出相应的不易让别人看懂的SAS程序吗？
#include <stdio.h>
main(t,_,a)char *a;{return!0<t?t<3?main(-79,-13,a+main(-87,1-_,
main(-86,0,a+1)+a)):1,t<_?main(t+1,_,a):3,main(-94,-27+t,a)&&t==2?_<13?
main(2,_+1,"%s %d %d\n"):9:16:t<0?t<-72?main(_,t,
"@n'+,#'/*{}w+/w#cdnr/+,{}r/*de}+,/*{*+,/w{%+,/w#q#n+,/#{l+,/n{n+,/+#n+,/#\
;#q#n+,/+k#;*+,/'r :'d*'3,}{w+k w'k:'+}e#';dq#'l \
q#'+d'k#!/+k#;q#'r}ekk#}w'r}ekk{nl]'/#;#q#n'){)#}w'){){nl]'/+#n';d}rw' i;# \
){nl]!/n{n#'; r{#w'r nc{nl]'/#{l,+'k {rw' ik{;[{nl]'/w#q#n'wk nw' \
iwk{kk{nl]!/w{%'l##w#' i; :{nl]'/*{q#'ld;r'}{nlwb!/*de}'c \
;;{nl'-{}rw]'/+,}##'*}#nc,',#nw]'/+kd'+e}+;#'rdq#w! nr'/ ') }+}{rl#'{n' ')# \
}'+}##(!!/")
:t<-50?_==*a?putchar(31[a]):main(-65,_,a+1):main((*a=='/')+t,_,a+1)
:0<t?main(2,2,"%s"):*a=='/'||main(0,main(-61,*a,
"!ek;dc i@bk'(q)-[w]*%n+r3#l,{}:\nuwloca-o;m .vpbks,fxntdceghiry"),a+1);}
我想假如有一天当计算机挑战人类的时候，我想那会儿的人类恐怕还是希望计算机不要聪明过人吧？