***************************************************************;
*** Macro to Create Source                                    *;
***************************************************************;
%MACRO w2source1 (dataout,program);
DATA _NULL_;
  FILE &dataout MOD;
PUT 
"_________________________________________________________________________________________________________________"/
"_________________________________________________________________________________________________________________"/
"Source: &program";
%MEND;
RUN;