data test;
ff1_1=1;
ff3_1=8;
ff54_1=9;
ff1_2=89;
ff4_2=12;
run;
data test1;
set test;
array temp (*) _numeric_;
do i=1 to dim(temp);
varname=upcase(vname(temp(i)));
if varname=:"FF" and substr(varname,length(varname)-1)="_1" then ff_1_sum=sum(ff_1_sum,temp(i));
end;
drop i varame;
run;
data test;
ff1_1=1;
ff3_1=8;
ff54_1=9;
ff1_2=89;
ff4_2=12;
run;
data test1;
set test;
array temp (*) _numeric_;
do i=1 to dim(temp);
varname=upcase(vname(temp(i)));
if varname=:"FF" and substr(varname,length(varname)-1)="_1" then ff_1_sum=sum(ff_1_sum,temp(i));
end;
drop i varame;
run;