SASUnit Examples: getvars.sas Source File

00001  
00019 %MACRO getvars(
00020    data
00021   ,dlm=
00022 );
00023 %local varlist dsid i;
00024 %if "&dlm"="" %then %let dlm=%str( );
00025 %let dsid = %sysfunc(open(&data));
00026 %if &dsid %then %do ;
00027    %do i=1 %to %sysfunc(attrn(&dsid,NVARS));
00028       %if &i=1 %then 
00029          %let varlist = %sysfunc(varname(&dsid,&i));
00030       %else         
00031          %let varlist = &varlist.&dlm.%sysfunc(varname(&dsid,&i));
00032    %end;
00033    %let dsid = %sysfunc(close(&dsid));
00034 %end;
00035 &varlist
00036 %MEND getvars;