OPTIONS LS=90 PS=55 NODATE NONUMBER NOCENTER NOFMTERR;
******************************************************;
*             Program   Date    Disk    Programmer    ;
TITLE1 "Source: dmes99p19.sas 10/25/99    Ed Stanek  ";
* Description : Read in data with multiple lines      ;
*   from Interferron in chronic grandulotomous Diesase;
*     study and create cross-sectional and longitudinal;
*     data                                            ;
******************************************************;
LIBNAME old 'c:\data';

PROC FORMAT ;
  VALUE z1f 1="Interferon(1)"
            2="Placebo(2)";
  VALUE z8f 1="Male(1)"
            2="Female(2)";
  VALUE  df 1="Infection(1)"
            2="Censored(2)";


DATA d (keep=id  z1 z8 t1 d);
  INFILE 'c:\data\cgd.txt';
  INPUT v1-v16;
  id=v1;
   z1=v4;
   z8=v11;
   t1=v13;
    d=v15;
  LABEL  z1="Treatment/(Z1)"
         z8="Gender/(Z8)"
         t1="Time to/Event/(T1)"
          d="Event/(D)";
  FORMAT z1 z1f.
         z8 z8f.
         d  df.;

PROC PRINT DATA=d (OBS=20) SPLIT="/";
  BY id;
  ID id;
  VAR z1 z8 t1 d;
  TITLE2 "Table 1.  First 20 records";

RUN;