OPTIONS LINESIZE=88 PAGESIZE=53 NOCENTER NODATE NONUMBER NOFMTERR;
*******************************************************************;
* PROJECT NAME: Learning to Use SAS                                ;
*             PROGRAM NAME     LOCATION     DATE     PROGRAMMER    ;
TITLE1 "Source:LEC21P3.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 (DROP=fat0);
  SET new.lec21d1;
  fat=fat0;
  fup=0;
  LABEL fat="Percent*Fat*Intake:*FAT";

DATA mth1(DROP=fat1);
  SET new.lec21d2;
  fat=fat1;
  LABEL fat="Pct*Fat*Intake:*FAT";

DATA mth2(DROP=fat2);
  SET new.lec21d3;
  fat=fat2;
  LABEL fat="Pct*Fat*of Intake:*FAT";

  ***********************************************;
  *** Concatenate a single data file and list   *;
  ***********************************************;
DATA d2;
  SET mth2 mth1 base;

PROC PRINT SPLIT="*" DATA=d2 ;
  ID ID;
  VAR fup age clinic fat;
  TITLE2 "Table 3.1.  List of Fat Intake Data Concatenated from 2mths, 1mth to baseline";

  ***********************************************;
  *** Concatenate a single data file and list   *;
  ***********************************************;
DATA d3;
  SET base mth1 mth2;

PROC PRINT SPLIT="*" DATA=d3 ;
  ID ID;
  VAR fup age clinic fat;
  TITLE2 "Table 3.2.  List of Fat Intake Data Concatenated in Different Order";

RUN;