OPTIONS LINESIZE=88 PAGESIZE=53 NOCENTER NODATE NONUMBER NOFMTERR;
*******************************************************************;
* PROJECT NAME: Learning to Use SAS                                ;
*             PROGRAM NAME     LOCATION     DATE     PROGRAMMER    ;
TITLE1 "Source:LEC21P11.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 id;
PROC SORT DATA=mth1;  BY id;
PROC SORT DATA=mth2;  BY id;

DATA d4 ;
  MERGE base (IN=a)
        mth1 (IN=b)
        mth2 (IN=c);
  BY ID;
  a1=a;
  b1=b;
  c1=c;
  LABEL a1="Subject*in*Baseline*:A1"
        b1="Subject*in*1 Mth*:B1"
        c1="Subject*in*Baseline*:C1";

PROC PRINT DATA=d4 SPLIT="*";
  VAR a1 b1 c1 id fat0 fat1 fat2  ;
  TITLE1 "Table 11.4.3. Subject Follow-up Data with IN variables";

RUN;