data _null_;
set sashelp.class end = eof;
retain decimal;
if _n_ = 1 then decimal = (index(&var,'.')>0);
else decimal + (index(&var,'.')>0);
if eof then do;
if decimal > 0 then nature = 'Decimal';
else nature = 'Integer';
call symput ('nature',nature);
end;
run;