topic Re: SAS MACRO in SAS Programming

SAS MACRO

supersonic — Mon, 24 Jun 2013 09:40:10 GMT

i have a macro which will gives the no:of obs and no:of vars of a sasdata set

but my aim is to take care of all the datasets in a library(without manualy giving the dataset names).

please help.

%macro obsnvars(lib=,ds=);
%global dset nvars nobs;

%let dset=&lib..&ds;
%let dsid = %sysfunc(open(&dset));

   %if &dsid %then
      %do;
         %let nobs =%sysfunc(attrn(&dsid,nobs));

%let nvars=%sysfunc(attrn(&dsid,nvars));
%let rc = %sysfunc(close(&dsid));

         %put &dset has &nvars variable(s) and &nobs observation(s).;
      %end;
   %else

%mend obsnvars;

% obsnvars(lib=,ds=);

Re: SAS MACRO

Ksharp — Mon, 24 Jun 2013 10:04:20 GMT

proc sql;

select memname,nvar,nobs

from dictionary.tables

where libname='SASHELP';

quit;

Ksharp

Re: SAS MACRO

supersonic — Mon, 24 Jun 2013 10:07:14 GMT

My aim is to create a macro that looks at all the datasets in a library, counts their number of observations and number of columns and puts them into macro variables..

Re: SAS MACRO

Ksharp — Mon, 24 Jun 2013 10:20:05 GMT

OK.

%macro lib(lib=);
proc sql noprint;
select count(*) into : n 
 from dictionary.members
  where libname="%upcase(&lib)";
select memname,nvar,nobs
 into :     m1-: m%left(&n), :     v1-: v%left(&n), :     o1-: o%left(&n)
 from dictionary.tables
  where libname="%upcase(&lib)";
quit;
%put _user_;
%mend lib;

%lib(lib=work)

Ksharp

Re: SAS MACRO

SAS333 — Mon, 24 Jun 2013 10:36:30 GMT

Hello,

Below code extracts all the SAS datasets and the number of observations and variables in each dataset.

%macro obsnvars(lib=);

%if &lib= %then %let lib=WORK;

%else %let lib=%upcase (&lib);

proc sql;

select memname,nobs,nvar from dictionary.tables where libname="&lib" and memtype="DATA" and memname not in ('_PRODSAVAIL');

quit;

%mend obsnvars;

Re: SAS MACRO

Ksharp — Mon, 24 Jun 2013 10:55:00 GMT

There is no need to add %if condition, just add WORK into arguments.

%macro obsnvars(lib=WORK);
proc sql;

..........

Re: SAS MACRO

supersonic — Mon, 24 Jun 2013 11:02:40 GMT

thank you Ksharp and SAS333

%macro lib(lib=);

proc sql noprint;
select memname,nvar,nobs
into : m1, : v1, : o1
from dictionary.tables
where libname="%upcase(&lib)" and memtype="DATA";
quit;

%mend lib;

%lib(lib=)