不太在意变量顺序的话，这个或许行，希望对你有帮助

soporaeternus，非常感谢！
我将_n和_c颠倒后，得到我希望的结果，谢谢！

我注意到我最上面那个数据集的小数位格式太多了，所以打算如果绝对值小于1就保留3位小数点，否则保留1位，我按照你程序的思想去format，但是下面两个程序都不成功，请问应该怎么做呢？谢谢！

/*输入参数为逻辑库名(lib)和数据集名(dataset)*/
%macro youfmt(lib,dataset);
proc sql;
        /*求数据集的变量数存入宏变量n*/
        select count(*) into :n
        from dictionary.columns
        where upcase(libname)=%upcase("&lib") and upcase(memname)=%upcase("&dataset");

        /*将n个变量名分别存入宏变量col1到coln中*/
        select name into :col1-:col%cmpres(&n)
        from dictionary.columns
        where upcase(libname)=%upcase("&lib") and upcase(memname)=%upcase("&dataset");
quit;       

/*按照所需格式将每个观测值存入宏变量L1-Lm*/
data _null_;
        format temps $10000.;
        set perm.all;
        %do i=1 %to &n;
                temps=catx(' ',temps,"&&col&i",'=',&&col&i);
        %end;
        call symput('L'||left(_n_),temps);
run;
%put 第一个记录的输出值:&L1;
%mend youfmt;

%youfmt(work,test);

稍作改动......希望对你有帮助

请教下:set perm.all是什么??