OPTIONS LINESIZE=140 PAGESIZE=100 NOCENTER NODATE NONUMBER NOFMTERR ;
*******************************************************************;
*                 WATCH II Study PROGRAM                           ;
*          PROGRAM NAME        LOCATION  DATE   PROGRAMMER         ;
Title1  "Source:w2ed04p28.SAS  WATCH II 5/19/2004   EJS  "         ;
*          Documented as w2source1-prg.txt                          ;
*   Description:  Macro to Create End of Table with Source         ;
*                                                                  ;
*      The table lines are saved in the following location:        ;
FILENAME tout "C:\temp\test.txt"  ;
*******************************************************************;
ODS HTML CLOSE;
ODS Listing ;

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

%w2source1 (tout,w2ed04p28.sas);
RUN;