SASUnit Examples  Version 1.2
_sasunit_existdir.sas
Go to the documentation of this file.
1 
22 %MACRO _sasunit_existDir(i_dir);
23 %LOCAL rc did filrf;
24 %LET filrf=_tmpf;
25 %LET rc=%sysfunc(filename(filrf,&i_dir));
26 %LET did=%sysfunc(dopen(_tmpf));
27 %IF &did NE 0 %THEN %DO;
28  1
29  %LET rc=%sysfunc(dclose(&did));
30 %END;
31 %ELSE %DO;
32  0
33 %END;
34 %LET rc=%sysfunc(filename(filrf));
35 %MEND _sasunit_existDir;