OPTIONS LINESIZE=88 PAGESIZE=53 NOCENTER NODATE NONUMBER NOFMTERR;
*******************************************************************;
* PROJECT NAME: Learning to Use SAS                                ;
*             PROGRAM NAME     LOCATION     DATE     PROGRAMMER    ;
TITLE1 "Source:LEC21P4.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;
  RENAME fat0=fat;
  FUP=0;


DATA mth1;
  SET new.lec21d2;
  RENAME fat1=fat;

DATA mth2;
  SET new.lec21d3;
  RENAME fat2=fat;
  ***********************************************;
  *** Concatenate a single data file and list   *;
  ***********************************************;

DATA d2 (DROP=fat0 fat1 fat2);
  SET base mth1 mth2;
  LABEL fat="Percent*Fat*Intake:*FAT";

  ***********************************************;
  *** Sort data and get list by subject       ***;
  ***********************************************;
PROC SORT DATA=d2;
  BY id fup;

PROC PRINT DATA=d2 SPLIT="*" ;
  BY id;
  ID fup;
  TITLE2 "Table 4.1. Subject Follow-up Data on Fat Intake ";

  ************************************************;
  **** Interleave SAS data sets directly       ***;
  ************************************************;
PROC SORT DATA=base;  BY id;
PROC SORT DATA=mth1;  BY id;
PROC SORT DATA=mth2;  BY id;

DATA d3;
  SET base mth1 mth2;
  BY id;

PROC PRINT DATA=d3 SPLIT="*";
  BY id;
  ID fup;
  TITLE2 "Table 4.2. Subject Follow-up Data on Fat Intake using interleaved data ";

RUN;