CORE
mf_getvarlist.sas
Go to the documentation of this file.
1 
21 %macro mf_getvarlist(libds
22  ,dlm=%str( )
23  );
24  /* declare local vars */
25  %local outvar dsid nvars x rc dlm;
26  /* open dataset in macro */
27  %let dsid=%sysfunc(open(&libds));
28 
29  %if &dsid %then %do;
30  %let nvars=%sysfunc(attrn(&dsid,NVARS));
31  %if &nvars>0 %then %do;
32  /* add first dataset variable to global macro variable */
33  %let outvar=%sysfunc(varname(&dsid,1));
34  /* add remaining variables with supplied delimeter */
35  %do x=2 %to &nvars;
36  %let outvar=&outvar.&dlm%sysfunc(varname(&dsid,&x));
37  %end;
38  %End;
39  %let rc=%sysfunc(close(&dsid));
40  %end;
41  %else %do;
42  %put unable to open &libds (rc=&dsid);
43  %let rc=%sysfunc(close(&dsid));
44  %end;
45  &outvar
46 %mend;