topic Get information about programs at SAS in SAS Programming

Get information about programs at SAS

ohad_m — Mon, 17 Aug 2020 09:27:11 GMT

Hi, I try to create a function that receives as input a folder name on the computer and outputs a list of all the programs in SAS that are in the folder with information about them such as path, creation date, etc.

Re: Get information about programs at SAS

Kurt_Bremser — Mon, 17 Aug 2020 09:51:45 GMT

In a data step, use the following functions:

Re: Get information about programs at SAS

ohad_m — Mon, 17 Aug 2020 10:15:03 GMT

Hi,

Do you havw an example ?

Re: Get information about programs at SAS

andreas_lds — Mon, 17 Aug 2020 10:39:16 GMT

@ohad_m wrote:

Hi, I try to create a function that receives as input a folder name on the computer and outputs a list of all the programs in SAS that are in the folder with information about them such as path, creation date, etc.

Not clear what you want in the end, do you want to extract information visible to the operating system or do you want to extract information from the programs as well?

Re: Get information about programs at SAS

ohad_m — Mon, 17 Aug 2020 10:54:34 GMT

I want to create a function that receives as input the name of a folder on a computer and outputs the names of all SAS programs that exist within the folder, their path, size, and creation date

Re: Get information about programs at SAS

Kurt_Bremser — Mon, 17 Aug 2020 11:49:04 GMT

See this:

%let folder=/folders/myfolders;
%let outds=programs;

data &outds;
length dref fref $8 pname $200;
format timestamp e8601dt19. size comma10.;
did = filename(dref,"&folder.");
if did = 0
then do;
  did = dopen(dref);
  if did
  then do;
    do i = 1 to dnum(did);
      pname = dread(did,i);
      if upcase(scan(pname,-1,'.')) = "SAS"
      then do;
        pname = "&folder./" !! pname;
        fid = filename(fref,pname);
        if fid = 0
        then do;
          fid = fopen(fref);
          if fid
          then do;
            timestamp = input(finfo(fid,foptname(fid,5)),nldatm32.);
            size = input(finfo(fid,foptname(fid,6)),best.);
            fid = fclose(fid);
            output;
          end;
          else putlog "Could not open " pname;
          fid = filename(fref);
        end;
        else putlog "Could not assign filename for " pname;
      end;
    end;
    did = dclose(did);
  end;
  else putlog "Could not open directory";
  did = filename(dref);
end;
else putlog "Could not assign dref";
keep pname size timestamp;
run;

This code is tested on University Edition on my Mac.

If you are using a different environment (namely Windows), the option number in the FOPTNAME function will most probably be different.

Re: Get information about programs at SAS

Kurt_Bremser — Mon, 17 Aug 2020 11:51:06 GMT

PS the above is of course for those who do not enjoy the usage of external commands. With XCMD enabled, you just run ls (UNIX) or dir (Windows) with the correct parameters and read the output with FILENAME PIPE.