deleteds.sas

%macro deleteDS (data, memtype=DATA);

  %local lib mem;

  %if %index(&data,.) %then %do;
    %let lib = %scan(&data,1);
    %let mem = %scan(&data,2);
  %end;
  %else %do;
    %let lib = work;
    %let mem = &data;
  %end;

  proc datasets nolist library=&lib mt=&memtype;
    delete &mem;
  quit;

%mend;