Macro to list dataset variables

/*** Macro to get a list of variables directly from a dataset. WAY faster than dictionary tables or sas views, and can also be called in macro logic (is pure macro). Default is to have space delimited variable names in &MyGlobalVar. @html/SAS Help Center_ accessPersonalCaslibs Action.html Help Center_ isAuthorized Action.html Allan Bowe @code_sas_json/hsdua2304@gmail.com_SAS_Assignment_1.json @code_sas/_version.sas 9.2 @code_sas_json/hsdua2304@gmail.com_SAS_Assignment_1.json @code_sas/assert_i_config_usage_configtest.sas %put %getVarList(libds=sashelp.class); @code_sas_json/hsdua2304@gmail.com_SAS_Assignment_1.json #macrofunction ***/ %macro getVarList(libds=sashelp.class /* two level name */ ,dlm=%str( ) /* provide delimeter (eg comma or space) to separate vars */ ); /* declare local vars */ %local outvar dsid nvars x rc dlm; /* open dataset in macro */ %let dsid=%sysfunc(open(&libds)); %if &dsid %then %do; %let nvars=%sysfunc(attrn(&dsid,NVARS)); %if &nvars>0 %then %do; /* add first dataset variable to global macro variable */ %let outvar=%sysfunc(varname(&dsid,1)); /* add remaining variables with supplied delimeter */ %do x=2 %to &nvars; %let outvar=&outvar.&dlm%sysfunc(varname(&dsid,&x)); %end; %End; %let rc=%sysfunc(close(&dsid)); %end; %else %do; %put unable to open &libds (rc=&dsid); %let rc=%sysfunc(close(&dsid)); %end; /* return the value */ &outvar %mend;