谢谢。

proc sql;
create table test as
select a.*,b.ans_crt
from a join b
on a.obs=b.obs;
quit;

data wanted;
set test end=last;
length num $100;
retain num;
if ans = ans_crt then score+10;
if ans ne ans_crt then num=catx(",",num,obs);
if last;
keep num score;
run;
朋友，能不能简单讲解一下这段代码的大概意思，不是太懂。

朋友，你创建a2为正确数据集，a1为另一个数据集，二者比较。如果我还有一些数据集（假设为a3,a4,a5），也想和a2一起比较，就好像是好几个学生考试的答案和正确答案一起比较，最后得到分数，那么，最后的程序那块应该怎么编？谢谢。

应该用宏套宏实现吧？

先 merge 到一起，　然后再计算

data a;
   merge a1 a2 a3 a4 a5;
   by Q_no;
run;

data b;
   set a;
  /*  calculation */
run;

朋友，谢谢您的答复。把数据集合并后，想要让它们与正确的比较后结果一块出来，是不是需要编个循环还是怎么弄？我自己没想明白，希望您能给解惑一下。

谢谢您。

谢谢。

我说呢，怎么这么眼熟

朋友，前面4个数据集，a0为正确的，其他为与之比较的，然后后面用你给我的程序，怎么跑不出来呢？总提示有错，为什么呢？谢谢。
data a0;
input question $;
Q_no = scan(question, 1, '.');
Correct_answer = scan(question, 2, '.');
drop question;
datalines;
1.A
2.B
3.C
4.D
5.D
6.A
7.C
8.BC
9.ABC
10.BC
; run;
data a1;
input question $;
q_no = scan(question, 1, '.');
answer1 = scan(question, 2, '.');
drop question;
datalines;
1.A
2.B
3.C
4.A
5.D
6.A
7.C
8.BC
9.ABCD
10.BCD
; run;
data a2;
input question $;
q_no = scan(question, 1, '.');
answer2 = scan(question, 2, '.');
drop question;
datalines;
1.b
2.c
3.C
4.A
5.D
6.A
7.C
8.BC
9.ABCD
10.BCD
; run;
data a3;
input question $;
q_no = scan(question, 1, '.');
answer3 = scan(question, 2, '.');
drop question;
datalines;
1.A
2.B
3.d
4.A
5.D
6.c
7.C
8.BC
9.ABCD
10.BCD
; run;