How about something like this: data _null_; curdte = Today(); ** curdte = '21JAN2013'd; dow = weekday(curdte); incur= "week." || put(dow,1.); * now get same dow lastyr; lstyr = intnx('year',curdte,-1,'sameday'); lstdow = intnx(incur,lstyr,1); format curdte date9. lstyr date9. lstdow date9.; call symput('dow',put(dow,1.)); call symput('curdate',"'"||put(curdte,date9.)||"'d"); call symput('lastyr', "'"||put(lstdow,date9.)||"'d"); call symput('today_file',left(put(curdte,yymmddd10.))); call symput('start',left(put(curdte,WORDDATE.))); run; %put thisyr: &curdate lastyr: &lastyr ; %put todayFile: &today_file Start: &start;
... View more