Create email when directory fail

[miss2223]

Hi 

filename DIRLIST pipe 'dir "C:\Documents and Settings" /b';

data dirlist ;infile dirlist lrecl=200 truncover;
input file_name $100.

run ;

Is there any way SAS can generate an email when directory path/file is not available/file is locked. So the email brings the attention to be resolve?

In data step please. 

[Kurt_Bremser · Accepted solution]

Use a data step:

data _null_;
length dref $8;
rc = filename(dref,"C:\Documents and Settings");
did = dopen(dref);
if did
then do;
  call symputx("dir_open","1");
  rc = dclose(did);
end;
else call symputx("dir_open","0");
rc = filename(dref);
run;

Macro variable dir_open can be used as a boolean value to make the decision of either continuing or sending the mail.