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

   **********************************************;
   *** Baseline visit data                    ***;
   **********************************************;
DATA new.lec21d1 (LABEL="Baseline Fat Data: lec21p1.sas" COMPRESS=YES);
  INPUT @1 id            2.
        @4 age           2.
        @8 clinic        1.
       @10 fat0          2.;
  LABEL id="ID"
       age="AGE*YRS:*AGE"
    clinic="CLINIC"
      fat0="Pct*FAT*Baseline:*FAT0";
CARDS;
01 33  1 50
02 66  1 46
03 67  1 43
04 54  2 55
05 39  2 38
;

   **********************************************;
   *** 1 Month  visit data                    ***;
   **********************************************;
DATA new.lec21d2 (LABEL="One Month Fat Data: lec21p1.sas" COMPRESS=YES);
  INPUT @1 id      2.
        @4 fup     1.
        @6 clinic  1.
        @8 fat1    2.;
  LABEL id="ID"
       fup="Time*of*Follow*up:*FUP"
    clinic="CLINIC"
      fat1="Pct*FAT*1 Mth:*FAT1";
CARDS;
01 1 1 45
01 1 2 38
02 1 1 55
05 1 2 45
;

   **********************************************;
   *** 2 Month  visit data                    ***;
   **********************************************;
DATA new.lec21d3 (LABEL="Two Month Fat Data: lec21p1.sas" COMPRESS=YES);
  INPUT @1 id      2.
        @4 fup     1.
        @6 clinic  1.
        @8 fat2    2.;
  LABEL id="ID"
       fup="Time*of*Follow*up:*FUP"
    clinic="CLINIC"
      fat2="Pct*FAT*2 Mth:*FAT2";
CARDS;
01 2 2 47
02 2 1 50
03 2 2 38
05 2 2 34
;

*PROC CONTENTS DATA=new.lec21d1;
PROC PRINT DATA=new.lec21d1 SPLIT="*" ;
  ID ID;
  TITLE2 "Table 1. List of Baseline Data from LEC21D1.SD2";

*PROC CONTENTS DATA=new.lec21d2;
PROC PRINT DATA=new.lec21d2 SPLIT="*" ;
  ID ID;
  TITLE2 "Table 2. List of 1 MTH Data from LEC21D2.SD2";



*PROC CONTENTS DATA=new.lec21d3;
PROC PRINT DATA=new.lec21d3 SPLIT="*" ;
  ID ID;
  TITLE2 "Table 3. List of 2 MTH Data from LEC21D3.SD2";
RUN;