_detectsymbols.sas

Go to the documentation of this file.

 
%MACRO _detectSymbols(r_note_symbol    = note_symbol
                     ,r_warning_symbol = warning_symbol
                     ,r_error_symbol   = error_symbol
                     );

   proc printto log=work.detect.note.log new;
   run;

   proc printto log=log;
   run;

   filename _detect catalog "work.detect.note.log";

   data _null_;
      infile _detect truncover;
      input line $char256.;
      call symput ("&r_note_symbol", scan(line, 1, ':'));
      stop;
   run;

   filename _detect;

   proc datasets lib=work nolist;
      delete detect / memtype=catalog;
   quit;

   %IF &&&r_note_symbol = HINWEIS %THEN %DO;
      %LET &r_warning_symbol = WARNUNG;
      %LET &r_error_symbol   = FEHLER;
   %END;
   %ELSE %DO;
      %LET &r_warning_symbol = WARNING;
      %LET &r_error_symbol   = ERROR;
   %END;

%MEND _detectSymbols;