_getpgmdesc.sas

Go to the documentation of this file.

 
%MACRO _getPgmDesc (i_pgmfile =
                   ,r_desc    = desc
                   ); 

%LET &r_desc=;
%IF NOT %sysfunc(fileexist(&i_pgmfile)) %THEN %RETURN;

   data _null_;
      infile "&i_pgmfile" truncover end=eof;
      length desc $255;
      retain inbrief 0 desc;
      input line $255.;
      if upcase(line) =: '\BRIEF' then do;
         line = left (substr(line,7));
         inbrief=1;
      end;
      if substr(line,1,1)='\' or line=' ' or line='0D'x then inbrief=0;
      if inbrief then do;
         if desc=' ' then desc = line;
         else desc = trim(desc) !! ' ' !! line;
      end;
      if eof then do;
         if desc = ' ' then desc ="&i_pgmfile.";
         call symput("&r_desc", trimn(desc));
      end;
   run;

%MEND _getPgmDesc;