data aaa;
set bbb(obs=0 keep=cardno--age);
age_group=" ";
set bbb(obs=0 keep=ca--zn2);
run;
proc append base=aaa data=bbb;
run;
data aaa2;
format age_group $4.;
set aaa;
if age =0 then Age_group="0 ";
if age in (1) then Age_group="1 ";
if age in (2) then Age_group ="2 ";
if age in (3) then Age_group ="3 ";
if age in (4) then Age_group ="4 ";
if age in (5) then Age_group ="5 ";
if age =6 then Age_group ="6 ";
if age > 6 then Age_group=">6";
run;