是想要这种效果么？代码：
data x;
format x mmddyy10.;
input x mmddyy10.;
datalines;
04252019
04242019
04232019
04222019
04212019
04202019
04192019
;
run;

%let old=0 1 2 3 4 5 6;
%let new=星期天 星期一 星期一 星期一 星期一 星期一 星期一;

%macro oldnew;
%let i=1;
%do %until (%scan(&old.,&i.)=);
if week=%scan(&old.,&i.) then wk="%scan(&new.,&i.)";
%let i=%eval(&i.+1);
%end;
%mend;

data x3;
set x;
week=weekday(x);
week=week-1;
%oldnew;
run;

是的！厉害！