/* delds.sas Daniel Brockman 070515 Delete data set */
;
/* -------------------------------------------------------------- */
%macro delds(dsn) ;   * delete data set &dsn ;
  %local lib nam ;
  %let nam = %scan(&dsn,2);
  %let lib = %scan(&dsn,1);

  %if (x&nam eq x) %then %do ;
    %let nam = &lib  ;
    %let lib = work ;
    %end;
  
  %if (%sysfunc(exist(&lib..&nam))) %then %do ; /* don't delete if not extant */
  proc datasets library=&lib nolist ;
%put delds.sas L15 lib=&lib nam=&nam ;
    delete &nam ;
  run;

  %end;

%mend delds ;
/* -------------------------------------------------------------- */