Datenabhängiges Ausführen von Macros

Einführung

     %macro compare(data1,data2);
       title "Vergleiche &data1 und &data2";
       Proc compare data=&data1 compare=&data2;
       RUN;
     %mend;
     Proc sql;
      create table work.liste
        as select memname
        from dictionary.tables
        where libname="LIB1" and memtype="DATA";
     QUIT;
     Data _null_;
      Set work.liste;
      macroCall = '%compare (LIB1.'!!memname!!", LIB2"!!memname!!");";
      call execute(macroCall);
     RUN;

Problem

Der Macroaufruf wird bei der Ausführung von call execute() ausgeführt. Eventuell erzeugte Proc- und Datasteps werden aber erst nach dem Ende des Datasteps und dann auch nur nacheinander ausgeführt.

Wenn nun das Macro etwas komplexer ist, und die korrekte Ausführung davon abhängt, dass Macro-Anweisungen und Proc/Datasteps in der richtigen Reihenfolge ausgeführt werden, führt die Ausführung des Macros in call execute() zu einem fehlerhaften verhalten. Ein Beispiel wäre die Prüfung des Ergebnisses mit der automatischen Macrovariablen &syserr.

Um dieses Problem zu vermeiden, muss die Ausführung des Macros verzögert werden. Das wird mit der Macro-Funktion %nrstr() erreicht. Der Macro-Aufruf wird dann von call execute() wie Text behandelt und erst nach dem Ende des Datasteps vom Program-Manager ausgeführt.

Das folgende Beispiel zeigt den Unterschied.

     %macro ttt;
      %Let i = %eval(&i+1);
      %put ttt starts &i;
      Data _null_;
       PUT "Datastep &i";
      RUN;
      %put ttt ends &i Fehlercode &syserr;
     %mend;

* This example will show the problem:
  Any Macro-Code after the Datsstep will execute
  before the datstep has executed;

     %let i=0;
     Data _null_;
      do j = 1 to 3;
       call execute('%ttt');
      end;
     RUN;

* This will produce the right results;

     %let i=0;
     Data _null_;
      do j = 1 to 3;
       call execute('%nrstr(%ttt)');
      end;
     RUN;