VARLEN関数

%let dsid=%sysfunc(open(mydata, i));
%if &dsid %then
   %do;
      %let len=%sysfunc(varlen(&dsid,
                       %sysfunc(varnum
                       (&dsid,ADDRESS))));
      %let rc=%sysfunc(close(&dsid));
   %end;

data vars;
   length name $ 8 type $ 1;
   drop dsid i num rc;
   dsid=open("mydata", "i");
   num=attrn(dsid, "nvars");
   do i=1 to num;
      name=varname(dsid, i);
      type=vartype(dsid, i);
      length=varlen(dsid, i);
      output;
   end;
   rc=close(dsid);
run;