%macro getnobs(lib=work, dsn=, _nobs=nobs);
    
    %if &_nobs =  %then %let _nobs=nobs;;
    %global &_nobs;    
    proc sql noprint;
        select nobs into :&_nobs. from sashelp.vtable 
            where libname=upcase("&lib.")
                  and memname=upcase("&dsn.")
        ;
    quit;

    %put Dataset=&dsn has %sysfunc(strip(&&&_nobs..)) records.;
        
 %mend getnobs;