%macro l_format(name=,low=,high=,interval=);

    data l_a;
        do i=&low. to %sysevalf(&high.-&interval.) by &interval.;
            var1=catx('',i+0.1,'-',i+&interval.) ;
            var2=catx('',i,'-',i+&interval.);
            output;
        end;
    run;

    data _null_;
        set l_a end=final;
        call symput('name'||strip(_n_),catx('',var1,'=','"',var2,'"'));
        if final then call symput('num',strip(_n_));
    run;

    proc format;
        value &name.
        low - &low. = "小于&low."
            %do i=1 %to &num.;
                &&name&i..
            %end;
        %sysevalf(&high.+0.1) - high = "大于&high.";
    run;

    proc delete data=l_a; run;
%mend;
%l_format(name=group,low=3,high=16,interval=0.5);

data a;
    input a;
    cards;
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    16.1
    ;
run;

data b;
    set a;
    b=put(a,group.);
run;

%macro test(low,high,interval);

%let var1=low-&low.="小于&low."; %put &var1.;/*头的形式*/

/*中间循环变化形式*/
%do i=&low. %to %eval(&high.-&interval.) %by &interval.;

        %let var2=%sysevalf(&i.+0.1)-%sysevalf(&i.+&interval.)="&i.-%sysevalf(&i+&interval.)";%put &var2.;
        %let var1=&var1. &var2.;%put &var1.;

%end;

%let var2=%sysevalf(&high.+0.1)-high="大于&high.";/*尾的形式*/

&var1. &var2.;

%mend;

/*定义format*/
proc format;
value group %test(2,16,2);
run;;

/*测试*/
data test;
x=2.2;output;
x=7;output;
x=11.1;output;
x=8.6;output;
x=16;output;
x=17;output;
format x group.;
run;

%macro l_format(name=,low=,high=,interval=);
    proc format;
        value &name.
        low - &low. = "小于&low."

        %do i=&low. %to %eval(&high.-&interval.) %by &interval.;
            %let j=%eval(&i. + &interval.);

            &i..1 - &j. = "&i.-&j."

        %end;

        &high..1 - high = "大于&high."
    ;
    run;
%mend;
%l_format(name=group,low=3,high=18,interval=3);

data a;
    input a 8.;
    cards;
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    16.1
    ;
run;

data b;
    set a;
    b=put(a,group.);
run;

高手，这个宏的interval如果不是整数就不行，请问怎么改一下，可以使interval为小数，如0.5