20 %local rc did is_directory fref_t;
22 %let is_directory = 0;
23 %let rc = %sysfunc(filename(fref_t, %superq(path)));
24 %let did = %sysfunc(dopen(&fref_t.));
25 %
if &did. ^= 0 %then %
do;
26 %let is_directory = 1;
27 %let rc = %sysfunc(dclose(&did.));
29 %let rc = %sysfunc(filename(fref_t));