%MACRO callTwice(aString, outputVariant);
%DO i=1 %TO 2;
%&outputVariant(&aString.);
%END;
%MEND callTwice;
%MACRO simplePut(stringToOutput);
%PUT(&stringToOutput.);
%MEND simplePut;
%MACRO upcasePut(stringToOutput);
%PUT(%UPCASE(&stringToOutput.));
%MEND upcasePut;
%callTwice('testString', simplePut);
%callTwice('testString', upcasePut);
No comments:
Post a Comment