OPTIONS LINESIZE=72 PAGESIZE=55 NODATE NONUMBER NOCENTER;
******************************************************************;
***             Program Name  Date      Disk Label   Programmer   ;
TITLE1 "Source: LISTP1.SAS     9/24/98               Ed Stanek   ";
*  DESCRIPTION: Read in ICU Data and create a SAS system data set ;
******************************************************************;

DATA  icu;
  INFILE 'c:\temp\icu.dat' FIRSTOBS=11;
  INPUT id sta age sex race ser can crn inf cpr sys hra pre typ
        fra po2 ph pco bic cre loc;

PROC PRINT;

PROC CONTENTS POSITION;

RUN;