应该符合你的要求了
data a;
input ID ADRESS $ CHECKER $  DATE:ddmmyy.  SEX01$  SEX02$ SEX03$  OCCUP01$  OCCUP02$  OCCUP03$  OLD01 OLD02 OLD03;
format date ddmmyy6.;
datalines;
1  PKU    CRACKMAN  090909  F       M      M     STUDENT    STUDENT   STUDENT  23    22    24
2  PKU    CRACKMAN  090909  F       M      F     STUDENT    STUDENT   STUDENT  22    21    22
3  PKU    CRACKMAN  090909  M       F      M     STUDENT    STUDENT   STUDENT  19    19    23
4  PKU    CRACKMAN  090909  M       F      M     STUDENT    STUDENT   STUDENT  24    24    21
;
run;

data b;
set work.a;
keep ID ADRESS  CHECKER   DATE  SEX ;
array ta {*} $ SEX01  SEX02 SEX03;
do ti = 1 to dim(ta);                                                                                                        
     SEX = ta{ti};
output;                                                                                                                           
end;
run;         
data c;
set work.a;
keep  OCCUP;
array tb {*} $ OCCUP01  OCCUP02  OCCUP03;
do ti = 1 to dim(tb);                                                                                                        
     OCCUP = tb{ti};
output;
end;
run;
data d;
set work.a;
keep  OLD;
array tc {*} OLD01 OLD02 OLD03;
do ti = 1 to dim(tc);                                                                                                        
     OLD = tc{ti};
output;
end;
run;

data abc;
merge b c d;
run;

1# crackman *note:address mistakenly spelled as adress;

data a;
input
ID ADRESS$ CHECKER$   DATE:yymmdd10.   SEX01$  SEX02$ SEX03$ OCCUP01$    OCCUP02 $   OCCUP03$  OLD01 OLD02 OLD03@@;
format date yymmdd10.;
cards;
1  PKU        CRACKMAN  090909 F         M       M        STUDENT        STUDENT   STUDENT              23       22      24
2  PKU        CRACKMAN  090909 F         M       F        STUDENT        STUDENT   STUDENT               22      21      22
3  PKU        CRACKMAN  090909 M        F        M        STUDENT       STUDENT   STUDENT                19     19     23
4  PKU        CRACKMAN  090909 M        F       M        STUDENT         STUDENT   STUDENT              24       24    21
;run;
%let num=3;%macro x;%do i=1 %to #proc sql;create table a&i as select id*100+&i as id,adress,
checker,date,sex0&i as sex,occup0&i as occup,old0&i as old from a ;quit;%end;%mend;%x;
%macro y;data final; set %do i=1 %to #a&i %end; ;run;proc sort;by id;run;%mend;%y;

馊主意
output 3次再set