/******************************************************************************
 * Programme : Au-delà de PROC DELETE : Maîtrisez la suppression système de vos tables et catalogues SAS
 * Reference : MACRODF2A7
 * Source    : https://www.wearecas.eu/de/sampleCode/MACRODF2A7
 ******************************************************************************/

/* --- BLOC 1 --- */
%macro _delete(arg1, cat=&arg1, data=&cat); 

%local i suffix file;

%let suffix=%_suffix %_catext;

%do i=1 %to %_count(&suffix);
    %let file=%_dir(%sysfunc(pathname(%_lib(&data))))%_data(&data).%scan(&suffix, &i, %str( ));
    
    %if %_exist(&file) %then x "%_unwind(rm -f, del) &file";;
%end;

%mend _delete;

/* --- BLOC 2 --- */
/*
libname pwd '.';

data pwd._test_(index=(x));
    x=1;
    output;
run;
*/

/* --- BLOC 3 --- */
/*
%_delete(pwd._test_);
%_delete(pwd.imlstor);

proc contents data=pwd._all_;
run;
*/