/*just for reference*/
data a;
length x $20. y$20.;
input x$ y$;
cards;
a b
aaa bbbbbbbbbbbbbbbbbb
;
run;

%macro maxlen(lib=,mem=,out=);
proc sql noprint;
        select name into: varlist separated by ' '
        from dictionary.columns
        where libname=%upcase("&lib.") and memname=%upcase("&mem.");
quit;

%let nvar=%sysfunc(countw(&varList));

%let varlast=%scan(&varList, &nvar.);

proc sql;
        create table &out. as
        select
                 %do i =1 %to %eval(&nvar.-1);
                             %let var =%scan(&varList, &i);
                                        max(length(&var.)) as &var.len,
                 %end;

          max(length(&varlast.)) as  &varlast.len
        from a;
quit;
%mend maxlen;

%maxlen(lib=work,mem=a,out=test)

你误会我的意思啦，我希望得到的数据集变量x的长度为3，y的变量长度为18。
proc contents data=a;
run;
                                 #    变量    类型    长度

                                    1    x       字符      3
                                    2    y       字符      18

哈哈，感觉直接在data-input-cards中实现不了，但可以先定义一个大长度，然后再改属性

继续求助！