OPTIONS LS=64 PS=500 NODATE PAGENO=1;

*****************************************;
*** d1 is the library reference name. ***;
*** It indicates a subdirectory to    ***;
*** store or find a data set          ***;       
*****************************************;

 LIBNAME d1 '/export/user1/umsfjbor';
* LIBNAME d1 'c:\courses\sassem\read_1';

*****************************************;
*** Read in data from lowwgt.dat file ***;
*****************************************;

DATA in;
 INFILE 'c:\courses\sassem\read_1\lowwgt.dat';
 INPUT idnum low age lwt race smoke 
       ptl ht ui ftv bwt @@;
FORMAT bwt 8.2;

PROC PRINT DATA=in;

*********************************************;
*** Create a SAS data set called lowbirth ***;
*********************************************;
     
DATA d1.lowbirth; SET in;

*****************************************;
*** See a description of its contents ***;
*****************************************;

PROC CONTENTS DATA=d1.lowbirth;

*******************************************;
*** Read in the SAS data set lowbirth   ***;
*** from the directory corresponding to ***;
*** d1 defined in the libname statement.***;  
*** Call this data set  ==>  one  <==   ***;
*******************************************;

DATA one; SET d1.lowbirth;

DATA one; SET one;
     IF _n_ < 11;

PROC PRINT data=one;
     VAR idnum bwt;
run;