试一下这个：
data a;
input id qid oid answer;
datalines;
1      20                    70            5
1      20                    72             4
1       50                   60            1
1        50                   65           4
2      20                    70            3
2      20                    72             2
2       50                   60            5
2        50                   65           1
;
run;

data b;
set a;
newid=trim(qid)||'_'||trim(left(oid));
drop qid oid;
run;

proc transpose data=b out=c(drop=_NAME_);
by id;
var answer;
id newid;
run;

结果看上去是这样的：
   Obs    id    _20_70    _20_72    _50_60    _50_65

                        1      1       5         4         1         4
                        2      2       3         2         5         1
变量名是不能以数字开头的

呵呵 不错
运行可以了

data a;
input id qid oid answer;
newid=trim(qid)||'_'||trim(left(oid));
drop qid oid;
datalines;
1      20                   70           5
1      20                   72           4
1      50                   60           1
1      50                   65           4
2      20                   70           3
2      20                   72           2
2      50                   60           5
2      50                   65           1
;
run;
proc transpose data=a out=b(drop=_NAME_);
by id;
var answer;
id newid;
run;
这样写效果好一些

万分感谢, 这里高手真多.