;

/*
  The code I use to test if a file exists is like this.
  It works with AIX 3.2

  Tom Poot
  01/12/1996
*/

%macro exist_f(filename);
options nonotes;
  %global existdat;
  %local  rcls;
  filename ls_list pipe "ls &filename";
  data _null_;
    infile ls_list;
    length lsname $ %length(&filename);
    input  lsname $;
    call symput('rcls',lsname);
  run;
  %if &rcls=%str(ls:) %then %let existdat=no;
  %else %let existdat=yes;
%mend exist_f;

*
;