Type : CREATION_INTERNE
Das Skript enthält einen Validierungsabschnitt (kommentiert), der eine Testtabelle 'pwd._test_' mit einem Index generiert, um die Funktionsweise der Löschung zu überprüfen.
| 1 | %macro _delete(arg1, cat=&arg1, DATA=&cat); |
| 2 | |
| 3 | %local i suffix file; |
| 4 | |
| 5 | %let suffix=%_suffix %_catext; |
| 6 | |
| 7 | %DO i=1 %to %_count(&suffix); |
| 8 | %let file=%_dir(%sysfunc(pathname(%_lib(&DATA))))%_data(&DATA).%scan(&suffix, &i, %str( )); |
| 9 | |
| 10 | %IF %_exist(&file) %THEN x "%_unwind(rm -f, del) &file";; |
| 11 | %END; |
| 12 | |
| 13 | %mend _delete; |
| 1 | /* |
| 2 | libname pwd '.'; |
| 3 | |
| 4 | data pwd._test_(index=(x)); |
| 5 | x=1; |
| 6 | output; |
| 7 | run; |
| 8 | */ |
| 1 | /* |
| 2 | %_delete(pwd._test_); |
| 3 | %_delete(pwd.imlstor); |
| 4 | |
| 5 | proc contents data=pwd._all_; |
| 6 | run; |
| 7 | */ |