CORE
mf_getattrn.sas
Go to the documentation of this file.
1 
20 %macro mf_getattrn(
21  libds
22  ,attr
23  );
24  %local dsid rc;
25  %let dsid=%sysfunc(open(&libds,is));
26  %if &dsid = 0 %then %do;
27  %put WARNING: Cannot open %trim(&libds), system message below;
28  %put %sysfunc(sysmsg());
29  -1
30  %end;
31  %else %do;
32  %sysfunc(attrn(&dsid,&attr))
33  %let rc=%sysfunc(close(&dsid));
34  %end;
35 %mend;