OPTIONS LINESIZE=88 PAGESIZE=53 NODATE NONUMBER NOCENTER NOFMTERR;
*******************************************************************;
* PROJECT NAME: ASSIGNMENT 3 OF BIOEPI 691F                        ;
*             PROGRAM NAME       DATE     PROGRAMMER               ;
TITLE1 "Source:ASSI3.SAS        9/22/99      EJS "                 ;
* Description:                                                     ;
*    Read in data using columns input, save the data in a          ;
*      permanent SAS Data set and print the first 10 subjects      ;
*      in the data set                                             ;
*  Creates:  icua3.sd2   ICU data set for Assignment #3            ;
*        From:  icu.dat   on c:\data Subset of variables from ICU  ;
*                         data on the WEB                          ;
*******************************************************************;
LIBNAME E3 'C:\DATA';

DATA  icu;
  INFILE 'c:\data\icu.dat' FIRSTOBS=12;
  INPUT id   6-8
       age  14-15
       race   21
       sys  39-41
       hra  44-46
       typ  52    ;

***********************;
*   Save the data    **;
*  in a permanent SAS**;
*  Data set          **;
***********************;


DATA E3.icua3;
  SET icu;


PROC CONTENTS DATA=E3.icua3;
 TITLE2 ' Table 1.  Contents of Permanent SAS Data Set';

PROC PRINT DATA=E3.icua3(OBS=10);
 TITLE2 " Table 2. LIST OF FIRST 10 SUBJECTS IN E3.icua3";

RUN;