Том прав в том, что DOB может быть оценен только здесь, а Крейг прав в том, что функция intnx - это путь (а также то, что мы не должны делать вашу домашнюю работу ...), но ваш ответ должен выглядеть примерно так:
data mydata2;
set mydata1;
format DOB date9.;
DOB = intnx('years',date,-age,'same');
run;