* Macro with parameters;
%MACRO select(customer=,sortvar=);
   PROC SORT DATA = flowersales OUT = salesout;
      BY &sortvar;
      WHERE CustomerID = "&customer";
   PROC PRINT DATA = salesout;
      FORMAT SaleDate WORDDATE18.;
      TITLE "Orders for Customer Number &customer";
%MEND select;

* Read all the flower sales data;
DATA flowersales;
   INFILE 'd:\MyRawData\TropicalSales.dat';
   INPUT CustomerID $ @6 SaleDate MMDDYY10. @17
      Variety $9. Quantity;
RUN;

*Invoke the macro;
%select(customer = 356W, sortvar = Variety)
%select(customer = 240W, sortvar = Quantity)
RUN;