OPTIONS LINESIZE=88 PAGESIZE=53 NOCENTER NODATE NONUMBER NOFMTERR;
*******************************************************************;
* PROJECT NAME: Learning to Use SAS                                ;
*             PROGRAM NAME     LOCATION     DATE     PROGRAMMER    ;
TITLE1 "Source:LEC21P10.SAS    Disk 1998#1 11/18/98       EJS "     ;
* Description:  Example Womans Health Initiative Data at Baseline  ;
*    1 month, and 2 months                                         ;
*******************************************************************;
LIBNAME new "C:\temp";

  **********************************************;
   *** Read data                                *;
   **********************************************;
DATA base ;
  SET new.lec21d1;

DATA mth1;
  SET new.lec21d2;

DATA mth2;
  SET new.lec21d3;
  ***************************************************;
  *** Merge data into a single data file and list   *;
  ***************************************************;

PROC SORT DATA=base;  BY clinic id;
PROC SORT DATA=mth1;  BY clinic id;
PROC SORT DATA=mth2;  BY clinic id;

DATA d4 (DROP=fup);
  MERGE mth2 base mth1 ;
  BY clinic id;


PROC PRINT DATA=d4 SPLIT="*";
  ID id;
  VAR clinic age fat0 fat1 fat2;
  TITLE2 "Table 10.1. Subject Follow-up Data on Fat Intake using MATCH MERGE";

RUN;