Lire le contenu d'un dossier

Lecture du directory des jobs déployé en SAS DI, sans employé de commande externe, la table comporte 2 champs l’un avec le nom du programme et l’autre le contenu de chaque ligne de programme.

filename monfich "E:\SAS\backtier\Lev1\SASApp\SASEnvironment\SASCode\Jobs\*.sas";

data Lectdir;

  length filename $256 sasfile $64;

  retain sasfile;

  infile monfich filename=filename eov=eov length=L;

  input line $varying256. l;  

  if _n_ eq 1 or eov then do;

   sasfile = scan(filename,-2,'.\');

   eov  = 0;

  end;

 run;