Wednesday, November 4, 2015

Pattern0.RemoveDependancy


%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